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© Parallel rule-based data transmission method and apparatus. 

© A parallel rule-t>ased data transmission method and apparatus is described comprising multiple computer 
ports, modems, and multiple data transmission cfiannels. The Invention incorporates hardware and software data 
compression, automatic line selection and port allocation* data file segmentation and reassembly and simulta- 
neous data transmission over multiple communications channels and their associated modems or ISDN 
interfaces. The invention allows a true multi-tasking environment to exist over inexpensive data communication 
channels thereby increasing the speed of data transmission as well as decreasing the cost associated with such 
transmission. 
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FIELD OF THE INVENTION 

This invention relates to data transmission systems and more specifically to a multiple telephone 
line/multiple modem rule based parallel data transmission systems. 

5 The novelty of the invention lies In the integration of existing devices, products and networks along with 
software and firmware which makes the process of data transmission much more efficient, less costly and 
less time consuming. By utilizing low cost dial-up telephone lines and data compression techniques 
inherent in the hardware and software. In concert with rule-based file distribution and segmentation 
techniques, the cost of each data character transmitted and received Is significantly reduced. Furthermore, 

10 the speed at which data is transferred is Increased by an order of magnitude over that normally available for 
dial-up service. 

In effect, the economic viability of leased line or other dedicated data circuits is greatly diminished 
while increasing the economic viability of other low cost data communications channels such as dial-up 
. telephone circuits as a cost effective alternative. 

75 

BACKGROUND OF THE INVENTION 

Multi channel data transfer has been descrit»ed in patents issued to Giorgio (Patent No. 4.862,456 and 
Patent No. 4,864,567) and to Nash (Patent No. 4.577.312). However, these patents either use a central 

20 office switch or similar system to obtain simultaneous transmission which requires additional equipment and 
expense or do not comprise compression of data or multi tasking capabilities thereby limiting the over all 
throughput of date. Further none of these systems use a rule-based approach to the file management 
associated with transmission of large amounts of date. 

In contrast, the present invention does not suffer from any of these restrictions. The present invention 

25 does not require any additional equipment beyond a normal computer with communication channels and 
modems. Further the present invention employs compression algorithms to further speed the transmission 
of date and executes in a multi-tasking environment to give further throughput of information. These factors, 
together with the use of a rule-based system of tile management and channel selection renders the current 
invention extremely fast and easy to use, with a minimum of operator interaction. 

30 Date files are read from the directory of a computer and analyzed as to their data content, format and 
category (i.e. binary, ASCII text, image fonmat. etc.). Individual files or parts of individual files are then 
directed to any number of atteched modems and their respective dial-up circuits. Data files are received at 
the remote end, and if segmented, re-appended (reconstructed) and stored on the remote end disk system 
component of a computer which is also equipped with multiple modems and multiple dial-up circuits. 

35 Individual line speeds exceed 60kbps (6.000 characters per second) while aggregate baud rates (date 
throughput rates) are only limited by the number of lines and modems available for transmission. 

In the Integrated Services Digital Networtc (ISDN) embodiment, utilizing 64KBps or faster channels, 
individual date rates exceed 300KBPS while aggregate date throughput is only limited by tiie numt>er of 
ISDN circuits (and associated ISDN interfaces) available at both ends of the transmission system. 

40 The system utilizes a novel file naming convention which enables the computer hardware and software 
to optimize date compression and/or file segmentation in order to achieve maximum date throughout. 
Destination address (telephone number) date are automatically computed based upon unique date file suffix 
interpretation. 

A user friendly software front-end system is provided to automatically configure the system to the 
45 individual requirements of the user. 

Date throughput rates are achieved which were hitherto only accomplished utilizing expensive leased 
date circuits operating at date rates of from 4800 to 56KBPS or higher or other non-switched dedicated 
services. The system also facilitates switching of date which is not nonnally possible when leased lines (i.e.. 
point to point) are utilized. 

50 It is therefore an objective of the present invention to employ an expert system/rule-based approach to 
date transmission to minimize operator interaction in such date transmission, yet maximize the speed of 
transmission of date files of any type. 

It is another objective of the present invention to provide a cost effective system of data transmission 
that is simitar in perfonmance to more expensive leased lines or dedicated higher capacity data transmission 
55 lines but which relies upon the use of low-cost communications channels such as dial-up service. 

It is another objective of the present invention to further reduce communications costs by conducting as 
much file related manipulation as p>ossible off line. 

It is yet another objective of the present invention to provide a low cost replacement for more 
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sophisticated and expensive data transmission controllers such as the IBM 3725 or 3705. or similar 
communications front end systems. 

Further it is an objective of the present invention to provide rapid data communication in both foreign 
and domestic ISDN standard environments. 

5 

SUMMARY OF THE INVENTION 

The Parallel Rule-Based Data Transmission method and apparatus comprises several major compo- 
nents: 

10 A. Multiple computer systems equipped with communications ports to send and receive data, 
8. Multiple modems attached to multiple communications ports on each computer system, 

C. Multiple telephone company dial-up lines or other data transmission media attached to each computer 
(both sending and receiving units), 

D. Rule-based data communications software programs providing multi-tasking and multiprogramming 
15 capabilities to divide or segment files to fadlrtate simultaneous transmission and reception of data tjased 

upon the number of telephone lines or data transmission channels and modems utilized. 
The computer system Is a low cost conventional 80286, 386 or 486 based PC or other computer (such 
as those t>ased on Motorola 68000 or other CPU) having the ability to run the rule-based software that is 
used for the data transmission management. It will be readily apparent to those skilled In the art that other 

20 computers capable of running rule-based systems which are not based on these same chips are still viable 
processors for the invention with only slight changes to the software disclosed. The computer further 
comprises multiple communication ports to facilitate the multi channel simultaneous transmission of data. 
Each computer system can transmit data to or receive data from any other computer system similarly 
equipped without regard to distance or individual line conditions. Provisions are made for ISDN compatibility 

25 through the automatic distribution of data files or their components to each ISDN B channel connected. 

Multiple modems on a single computer are employed to serve as the outgoing telecommunication 
equipment for simultaneous transmission of segmented (where appropriate) data files. The modems also 
employ data compression/decompression means to further speed the parallel transmission of data, and to 
decompress incoming data "on-the-fly" thus further reducing communication time. The invention uses 

30 standard run length encoding or Huffman encoding as its data compression scheme for ASCII data and a 
standard commercially available data compression algorithm known as CommPressor available from 
Adaptive computer Technologies, Santa Clara. CA. Data are compressed via hardware and software 
techniques to levels up to or in excess of 6:1 thus^etevating data transmission rates on standard telephone 
lines to in excess of 6,000 characters per second per line utilized. Thus through simultaneous use of 

35 multiple data channels the aggregate data transmission rate Is only limited by the number of communica- 
tions channels available. 

Multiple dial-up lines are used as the basic transmission medium over which the present Invention 
sends its data. These lines are much less expensive than dedicated leased lines thereby yielding a further 
financial advantage of users of the present invention. It is important to note however, and It will be readily 

40 apparent to those skilled in the art of telecommunications that other transmission media also exist for which 
the present invention is equally applicable. For example, radio frequency links, satellite data communication, 
laser communk:ation, fiber optic links and others are all candidate transmission media for use with the 
present invention. Collectively, these are referred to as transmission media. The transmission channels refer 
to the transmission media together with the send bx\6 receive ports and modems. 

45 The system incorporates several rule-based computer software programs which facilitate data file 
segmentation, data compression, and reconstruction, as well as error detection and correction and 
automatic transmission speed control responsive to the condition of each individual transmission channel. 
Further rules relating to Least Cost Routing are also employed to further minimize costs. In addition, 
software provides automatic dialing directories based upon a novel file naming convention, selective 

50 adaptive compression t>ased upon data file contents and automatic retry if a line is dropped or Intentionally 
intenrupted. If one circuit is Inordinately noisy, the invention senses the problem automatically, automatically 
reallocates the data to be transmitted to less noisy channels and all other communications channels will 
adjust to accept the increased load automatically until the noise level decreases. The communications 
software cunrentty in use Is the Relay Gold Communications software package available from Microcom, Inc. 

55 Other such communications packages can also be used as a substitute for Relay Gold. 

Table lookup software programs are provided to automatically dial the correct destination telephone 
number or other equipment address to which data files will be transmitted based upon the naming 
conventions utilized in each file group to be transmitted. Each group of files may be associated with and 
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targeted for any number of individual telephone numbers or addresses thus providing multiple simultaneous 
transmission/reception circuits only limited by the number of lines, ports and modems/ISDN circuits 
available. Each destination site or equipment, as previously stated, has a computer(s) each with multiple 
modems with separate addresses or telephone numt>ers. These modems receive the parallel transmission 

5 of multiple files or segmented files simultaneously. 

File segmentation is the process by which the present invention examines the number of transmission 
channels available, based upon the number of sending and receiving modems available, and divides the file 
or files to be sent, more or less evenly among the available channels. Rules exist for the orderly 
segmentation of files as explained below. The actual segmentation occurs at points in the file where a 

10 division of that file naturally occurs (such as a caniage retum entry). Alternatively to the extent that 
addresses on a network are designated in a specific pattern an algorithmic determination of the address can 
be substituted for the table look-up procedure. 

All file segmentation (file division) and file reconstruction processes take place off-line, while the 
. computers are not communicating, thus reducing "connect time" expense. For example, a file of 2.000,000 

75 characters is automatically divided by the numtjer of transmission channels available and each segment is 
directed to a different channel. Segment prefixes and suffixes are added to the file to denote how the 
segment relates to one another. At the destination, the data file segments are reassembled to recreate the 
individual file as it was originally input to the transmission equipment. Reassembly is the act of reading the 
file segment identifier information (segment prefixes and suffixes) appended to the segments and contained 

20 in a special file (known as MAP.DAT) file and using that information together with segment identification 
information to "piece" the file back together into its original form. 

The present invention allows for data to be transmitted in a highly flexible way. Single files may t>e 
simultaneously transmitted to multiple locations. Altematively multiple files may also be transmitted to single 
or multiple locations simultaneously. This multi-tasking occurs from a single copy of the software. There is 

25 no requirement for multiple copies of the software to be running for each transmission session. Data 
transmission sessions run from a single RAM resident copy of the program. This has the obvious advantage 
of preserving RAM space for otf)er applications or to allow the transmission process to occur in a speedy 
fashion. 

Once the system has been configured and files loaded, the rule-based software operates automatically 

30 to perform the necessary file management and segmentation functions. All such functions are perfonmed 
without any need for operator intervention. After transmissions are complete, the system automatically 
terminates its data transmission session and readies itself for the next series of data transfers. 

Transmission channel allocation optimization is accomplished by the software system via a series of 
rules which determine file segmentation. The segmentation is characteristically based on the number of tiles 

35 to be transmitted, their respective sizes and contents, their compression attributes, and the number of 
available communication equipment (modems) at both the transmission and destination locations. Optimiz- 
ation software then allocates the optimal number and type of files to each data transmission channel for 
subsequent transmission. If one or more of the destination ports is busy or otherwise inoperable, the system 
redistributes targeted data files automatically to the remaining operable channels (ports) for transmission on 

40 a first-in-first out (FIFO) basis. Further, the present invention automatically monitors the transmission 
channel itself to determine that the channel is operating properly and is not inordinately noisy. If the 
transmission channel malfunctions, the invention senses this failure, and the software reallocates the data 
file or segments to be sent to the transmission channels that are functioning properly. 

The resident software also provides full reporting capability to the user including file(s) transmitted, 

45 destination(s), throughput achieved and associated error detection and confection statistics. . 

The present invention relies upon several novel file and file suffix naming and interpretation conventions 
in order to achieve full automation without user intervention. User file naming rules are integrated into a 
table lookup facility inherent in the software which determines file collating sequences when files are 
segmented and reassembled. The software sorts files by type, size and structure, looks up and determines, 

50 based upon three character (or more) file suffix (alphanumeric) destination telephone numbers or addresses 
for each group of files to fcte transmitted. This information is then passed to the operating system software 
and actual telephone numbers are then loaded into memory and passed to the modem (s) for off hook 
dialing. 

The rule-based software then determines the sizes of files and counts number of files to be sent. If 
55 number of available ports exceeds numt>er of files or there is only one file to be transmitted, file 
segmentation is invoked at>ove a certain threshold size. Rle(s) are divided based upon numt)er of complete 
transmission channels available and segments are marked for reassembly. File segments are then sub- 
labeled with new prefixes indicating their component serial level and prepared for transmission. 
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Data compression occurs based upon the type of data being sent (ASCII or binary). The type of data is 
determined by the system and the data compression peculiar to that type of data Is applied by the modem 
and software as the data is transmitted (as discussed above). Similarly, the destination modem de- 
compresses the data as it is received, first determining via a transmitted Identifier, the type of data 
5 compression used. 

At the destination, file segmentation detected via the presence of a special file known as a MAP.DAT 
file, segment serial numbers are sorted and files are reassembled subsequent to disk storage at which time 
file naming conventions are reinvoked. It is Important to note that file segmentation and reassembly 
functions take place off line (on hook) so as to minimize telephone line connect time and its attendant 
10 expense. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Rgure 1 . The Preliminary Data Transmission Row 

75 Rgure 2. The Preliminary Data Transmission Row-Continued 

Rgure 3. The Data Transmission and Monitoring Row 

Rgure 4. The Data Transmission and Monitoring Row-Continued 

Rgure 5. Data Receiving Row 

Rgure 6. Incoming Data file or Rte Segment Processing. 



20 



DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENT 



Referring to Rgure 1 . the transmission process is described. 

The Invention first ascertains the user identity and whether the user will be transmitting or receiving 
25 data [1(q. If transmitting data, the invention assigns file names to the data to be sent including suffixes 
which uniquely identify the destination telephone numbers or addresses [11]. 

The invention next reads the data file presented for transmission. The file is configured for subsequent 
operations [12]. After configuration the Volume Table of Contents (VTOC) Is read [13]. A directory is opened 
for the storage of the data file(s) to be transmitted [14] and the configured file is stored in the designated 
30 directory [15]. Simultaneously with the storage, the file parameters are determined (size etc.). 

Jhe files so stored are next scanned and fonmats are determined for the transmission of the files [16]. 
In addition, the suffixes to any files are Interpreted to determine the destination of the file [16]. 

Based upon the files scanned and'the Interpretation of the suffixes, a table lookup file is addressed to 
determine the telephone numt)er or address of the destination [16]. These telephone numbers are then 
35 loaded for the dial-up calls to be made subsequently by the multiple modems [33]. In preparation for the 
transmission of files, the data files are collated [17] and the total number of bytes to be transmitted are 
determined [19]. The optimal segmentation of the file for transmission is next calculated [20] (rf appropriate) 
based upon certain segmentation rules. Rnally, the file Is segmented for subsequent transmission [21]. 
The file segmentation rules apply the following criteria: 
40 1. If the number of available complete transmission channels (i.e. a transmission modem with cor- 
responding receiving modem) exceeds the numt}er of files to be sent, segment the files, provided that 
the files exceed a certain threshold. (In the case of the preferred embodiment the threshold is set at 2 
KB. Other thresholds can also be set). 

2. If the numt>er of available complete transmissk)n channels does not exceed the numt)er files to be 
45 sent and the files are more or less equal (as further explained below) allocate the files evenly over the 

available transmission channels without segmentation. 

3. If the number of available channels is equal to or less than the number of files tnit the file sizes are 
disproportionate to one another, then segment to achieve optimum throughput. "Disproportionate" size is 
determined by examining the Volume Table of Contents to determine the various file sizes. If the largest 

50 file is more than twice the size of the next largest file, the largest file will t>e segmented and allocated to 
more than one transmission channel. 

The invention also incorporates a rule based subsystem to optimize the cost associated with data 
transfers based upon the types of communications channels available to the user and their respective 
relative costs per character transmitted. This function is invoked via a least cost routing table which takes 
55 into account: 

- Time of day/day of week tariff charges and discounts. 

- Distance sensitive (I.e. NPA/NXXA^H) tables which articulate the cost per minute of connection t>ased 
upon the distance of the individual call or calls. 
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- Anticipated call duration (which is computed based upon total byte count divided by the number of 
connections available at both ends of the connection.) sensitivity. 

The cost optimization algorithm predicts the lowest possible connection cost (i.e. selecting the least 
expensive lines for each respective communications session) based upon the types and categories of 
5 channels available to the user which might include: 

- standard dial up telephone lines. 

- PBX dial access trunks. 

- Tie (dedicated circuit) lines. 

- Rat cost per minute dial up lines. 

10 - Microwave Central Office bypass circuits. 

- Other Centra! Office bypass circuits. 

- Volume discount dial up circuits. 

- Time of day/day of week discount dial up circuits. 

Any combination of these and other channels available to the user at both ends of the communication 

75 link can be used for purposes of these calculations. 

Provision is made for the updating of all tariff tables in order to assure that current cost data is 
maintained and properly applied to each communications based file transfer. 

Referring to Rgure 3 the transmission process is further described. The invention next determines if 
binary files are present (vs ASCII files) [30]. if binary files are present, the Invention invokes a binary data 

20 compression algorithm [31]. If binary files are not present an ASCII file compression algorithm is invoked 
[32]. Once the file segmentation is accomplished, the multiple modems of the invention are dialed [33] 
based upon the telephone numbers or channel addresses loaded from the lookup table [IS]. . 

The VTOC of the receiving computer is tested [34] to determine if appropriate space is available to 
receive all of the files about to be transmitted. If insufficient space is available the transmission session is 

25 terminated and an error message is displayed at the transmitting system; The files are subsequently 
transmitted over the multiple modems [35]. Transmission channel quality and status are continuously 
monitored during the course of transmission [35]. If line quality remains adequate transmission continues 
[37]. if line quality falls below minimum standards of signal-to-noise ratio the remaining untransmitted 
segments are reallocated to those transmission channels that are functioning properiy [36] and transmitted 

30 on a FIFO t>asis. At the end of the transmission the system detects the end of transmission (ETX) [38] 
signal, and transmits a hang up tone and terminates the transmission over the various telephone lines [39]. 
At this point the invention is off-line. The invention next writes reports [40] that include segment size, 
transmission time; enrors encountered and aggregate throughput and the system returns to the start point 
ready for the next transmission. 

35 Refening to Rgure 5, the receive and decompression function is described. The receiving system is 
first configured to accept files that will be transmitted to it [50]. A directory is opened to receive the 
incoming data [51] and the multiple modems are set and Data Terminal Ready (DTR) is established [52]. 
The answer mode is set on the modems and the system awaits the transmission of data [53]. When 
transmissk>n begins the incoming ring is detected and the modems answer the incoming calls [54]. Based 

40 upon incoming information, the compression scheme of the incoming data is determined [55]. The data is 
decompressed [56] in accordance with the appropriate decompression algorithm. 

Refening to Rgure 6 the receive and decompression process is further described. After the data is 
decompressed the invention determines If file segmentatk)n has occurred. This is accomplished by 
determining if segment file entitled MAP.DAT exists [57]. The MAP.DAT file is a file that comprises 

45 instructions for how a -file has been segmented and is the primary input to the file reassembly subroutine to 
allow the segmented file to be reassembled, ff the MAP.DAT file exists, the reassembly subroutine is called 
and loaded into RAM [59] together with the data from the MAP.DAT file. At the same time that segmentation 
is being detected, the decompressed data is stored for subsequent operations [5S|. The invention next 
continuously monitors incoming data for the "end of transmission" (ETX) signal [60]. Once this signal is 

50 sensed, the system goes off-line [61] and processing continues. For those files that were segmented for 
data tran^ission, the invention reads the file collating information in the MAP.DAT file and reassembles the 
segments and stores them [58] into the original file format [62]. 

ff the MAP.DAT file is not detected [57] the invention detects the end of transmission signal [60] and 
goes off line [61]. Non-segmented data can then be recalled from storage [58] for subsequent display [64] 

55 storage [63]. printing [65] and/or report writing [66]. The system is thereafter returned to the starting point 
for receipt of the next data file. 

An important aspect of the invention is the file naming convention mentioned above. A three (or more) 
character file suffix is utilized which is equivalent to the "target" destination address (i d-* telephone numt)er) 
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to which the file is to be transmitted. Valid entries are any combination of alphanumerics (i e-> 000-999), 
which are then related to a table which specifies from one to any numt>er of target telephone numbers to be 
utilized for file transfers. 

RIe name identifiers (prefixes) are composed of eight or more alphanumeric characters which cor- 
5 respond to the individual user's intemal file naming conventions. The latter forms the basis for the resulting 
file collating sequence. An example might t>e a series of image files for a medical diagnostic procedure 
where the first five characters are the x-ray number of the patient, followed by the Image number where: 

- R1 2345001 is the file name. 

- R12345 is the x-ray number. 

10 - 001 Is the image numt)er for that patient. 

Thus, files conforming to this format would be directed as follows: 

R1 2345001 Jooc. R1 2345002 joo(. R12345003joo( 
All of the above file names contain the suffix xxx. The table entry identifies that suffix as telephone numbers 
1-n and those numbers are loaded for sut)sequent dialing. RIes are sorted by prefix and loaded for 

75 transmission and are received at the remote location in the collated order. In the event that the user 
requires file transfers between minicomputers and mainframes, the invention also provides terminal 
emulation capability for the IBM 3270 and 3101. the DEC VT100. 220 and 240 and Telex and TTY modes 
as well as other terminal emulations and transmission protocols. 

While the embodiment just described may employ single byte (such as the 8250 chip) communications 

20 buffers another embodiment employs multiple byte communications buffering (such as the 16550AH RFO 
intenrupt driven buffer.) Yet another emtiodiment eliminates the serial port/UART (universal asynchronous 
receiver/transmitter) combination completely and substitutes the parallel computer port as the communica- 
tions interface medium. The latter embodiment provides data transfers at rates exceeding four times that of 
a standard serial port modem connection. 

25 While the source code to be executed may reside on the computer's disk drive for loading into its 
random access memory, it may also reside in EPROMS as an electronic disk. The latter embodiment 
provides greater speed of execution, enhanced security from tampering and greater ease of installation. 

On the following pages, the software of the prefenred embodiment is presented. It will be apparent from 
certain of the annotations that this software is adapted to a medical application, specifically that of 

30 transmitting image files between locations. However, it will be apparent to those skilled in the art that the 
present Invention can be utilized to transmit all manner of data files and is not limited by the application 
presented. Thus it will be apparent to those skilled in the art that new applications for the invention may be 
devised without departure from the spirit and scope of the invention as claimed. 

35 
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* SCRIPT: CONFIG. SCR 
* 

* FUNCTION: Front-end interface to CONFIG.DAT 

5 

on error 
clear 

* Subordinate phy»s support on ? 

global &HIER 
70 if (&1 = HIER) then 6HIER » Y 

else &HIER = N 

* Get script application drive 

&APPLDR = &option(SDRIVE) 

75 * Hake sure path is suffixed with a backslash 

if (&substr(&APPIJ)R, &length(&APPIX)R) , 1) <> »\») then 
&APPIDR = "&APPIJ)R\" 

&MESSAGE2 = "TAB-Next Field ENTER-Done Fl-Phy/Tel Maint 
ESC-Abort F10-Help» 
20 &MESSAGE1 « 

&PATHSPEC - 

&SPEEDCHK = "50, 75, 110, 135, 150, 300, 450, 600, 1200, 
1800, 2000, 2400, 3600, 4800, 7200, 9600, 14400, 19200, 38400," 

&PORTCHK= "COMl, COM2, COM3, COM4, C0M5, C0M6, C0M7, C0M8, 
HOSTS, IBMSHARE, NONE, IRMA, IBM, FORTE, IBMLDFT, IBMSDFT, SPECIAL, 
25 NPCSHARE, NACSHARE, USERl, USER2, COM3PC, COM4PC, GATEWAY," 

&MODCHK - "T, CD, 9, H, S, HV, PC, AX, QX, MT, C, P, V, W, 
X, R, B, BI, E, US, O, I, M, A, D, HC," 

&FIRSTSUB = Y 



30 



35 



40 



* If configuration file exists, then continue 

if exists &APPLDR. CONFIG. DAT then goto CONTl 

* Otherwise, init all vars in panel to bl2unks 

gosub INITBL 1 
goto C0NT3 

-CONTl 

* Open configuration file 

open & APPLDR.CONFIG.DAT as #1 for input 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "qCould not open file 
&APPU>R. CONFIG. DAT. Process aborted. Press ENTER." 
then stop 



* loop to read all records 
&RECCNT = 0 
&ELEM = 1 
45.. loop READREC * 

read file #1 &RECSTR ;* read a record 

if not found then goto C0NT2 ;* if EOF then jump out 



fiRECCNT «= &RECCNT + 1 ;* increment record counter 



50 



56 
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* If 1st record being processed, then assign to path-specification 

if (&RECCNT = 1) then 4PATHSPEC = &tr im ( &RECSTR) 
then goto READREC 

argstring &RECSTR ;* break-out tokens 
parse ;* use tilde as delimeter 

* Check for illegal # of tokens 

if (&N <> 6) then read line & Q1 " qlllegal « of tokens in 
record &ELEM - Record ignored. Press ENTER." 

then 

6ENT&ELEN=" ** ; ftNUMfiELEH^"** ; &SPEED&ELEM="" ; ftPTYPEfiELEM^** » ; &HTVPE&EL 
EM=" " ; &NAME&ELEM=" » 

* Otherwise r assign token from record to panel vars 

else &ENT&ELEK«&tri]n(&l) 
else &NUM&ELEN"&tri]D(&2) 
else &SPEED&£LEH=&triin(&3) 
else &PTYPE&ELEM»&trim(&4) 
else &MTyPE&ELEM=&trim(&5) 
else &NAN£&EIiEN«&tri]n(&6) 
&ELEM = &ELEH + 1 

-READREC 
-C0NT2 

* Clear all remaining pfmel vars 

gosub INITBL &ELEM 
close #1 

-C0NT3 

display panel CONFIG 

-C0NT4 

display input &RESPONSE 

if (&RESPONSE <> ESCAPE) and (&RESPONSE <> ENTER) and 
(&RESPONSE <> FIO) and (&RESPONSE <> Fl) 
then smsg "ginvalid response ..." 
then goto C0NT4 

if (&RESPONSE = ESCAPE) then smsg "Modifications not saved 
... Exiting to DOS." 
then wait 3 
then stop 

if ((RESPONSE = FIO) then gosub HELPl 
then goto C0NT4 

if (&RESPONSE <> Fl) then goto C0NT56 

* Assumed tel maint ops 

gosub SAVEDATA Fl 
&HRC = &rc 

* Errors in COMM SCREEN ? 

if (&HRC = 1) then goto C0NT4 
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* If 1st time request for tel malnt then init 

if (&.FIiAGl - &PIAG1) then JiFIAGl « V 
then iPG « 0 
then &DPG » 1 

then smsg ""qOne moment please . • • " 
then gosub READTEL 
smsg "q " 
&CDRUPD - N 

-DISPA6 

display panel CONFIGTO.FNL 

* Place cursor on particular field ? 

if (&CURUPD " Y) then display cursor &IASTFU) 

-C0NT99 

&MESSAGE1 = 

if (&HIER = Y) then &STUFF « "F2 -Subordinate Physician's 

« 

else &STUFF = 

if (&PG = 0) then &MESSAGE1 = "TAB-Next Field ENTER-Done 
PGDN-Next Page Fl-Comm Haint** 

then &MESSAGE2 - *&STUFF ESC-Abort FlO-Help" 

if {&PG = 9) then fcMESSAGEl = "TAB-Next Field ENTER-Done 
PGUP-Previous Page Fl-Comm Maint" 

then &MESSAGE2 = "fcSTUFF ESC-Abort FlO-Help" 

if (&PG >= 1) and (&PG <« 8) then &MESSAGE1 = "TAB-Next 
Field ENTER-Done PGDN-Next Page PGUP-Previous Page" 

then &MESSAGE2 « "&STUFF Fl-Comm Naint ESC-Abort 
FlO-Help" 

display output 

display input &RESP0NSE 

* Valid responses 

if (&RESPONSE <> ESCAPE) and (&RESPONSE <> ENTER) and 
(&RESPONSE <> FIO) and (&RESPONSE <> Fl) and (&RESPONSE <> F2) and 
{&RESPONSE <> PGDN) and (^RESPONSE <> PGUP) and (&H1ER -= Y) 

then smsg "qlnvalid response .•.* 

then goto CONT99 

if (&RESPONSE <> ESCAPE) and (&RESPONSE <> ENTER) and 
(&RESPONSE <> FIO) and (&RESPONSE <> Fl) and {&RESPONSE <> PGDN) 
and (&RESPONSE <> PGUP) and (&HIER = N) 

then smsg "qlnvalid response ..." 

then goto CONT99 

* Check for pages 1 and 10 for Page Up and Page Down limits 

if (&RESPONSE = PGUP) and (&PG = 0) then smsg "qNo more 
previous pages • • • " 

then goto C0NT99 

if {&RESPONSE « PGDN) and (&PG » 9) then smsg "qNo more 
pages available ..." 

then goto C0NT99 

if (&RESPONSE <> FIO) then goto C0NT23 

* HELP ops. 
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display save 

if (&HIER = Y) then display panel CONFIGHT 
else display panel CONFIGHX 

-USERINP2 

display input ^RESPONSE 

if (&RESPONSE <> ESCAPE) then goto 0SERINP2 
display restore 
goto CONT99 



-CONT23 

* ESCAPE ops. 

if (&RESPONSB = ESCAPE) then smsg "(jHodif ications not saved 
... Exiting to DOS." 



* Fl ops.; jump back to conm maint 

if (&RESPONSE = Fl) then &MESSAGE2 = "TAB-Next Field 
ENTER-Done Fl-Phy/Tel Malnt ESC-Abort FlO-Help" 



&CURUPD = N 
if (&RESPONSE « F2) 
then gosia> DOSUBORD 
then &CURUPD = Y 
then goto DISPAG 

if (&RESPONSE <> ENTER) then goto CONT34 



* ENTER ops. 

gosub SAVEDATA 
&hrc = &RC 

* If any invalid data in comm maint screen, then show user 

if (&hrc = 1) then goto C0NT3 

-CONT34 

* For page up/down increraent/decrement page counters 

if (&RESPONSE » PGUP) then &PG « &PG - 1 
then &DPG = &DPG - 1 
then goto CONT99 

if (&RESPONSE = PGDN) then &PG = &PG + 1 

then &DPG « &DPG + 1 

then goto CONT99 

smsg "qlnvalid response ..." 

goto CONT99 
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then wait 3 
then stop 



20 



then &MESSAGE1 = "" 
then goto C0NT3 



* F2 ops. (subordinate phy*s) 



45 



♦ TEL MAIM OPS 

* User pressed ENTER 
-C0NT56 



gosub SAVEDATA 
&hrc = &RC 
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IS 



if (&hrc = 1) then goto CONT4 

* Subroutine to read TEL- DAT file into ram vars 
-READTEL 

5 

* If TEL. DAT file doesn't exists, then initialize panel vars in Ist 
screen 

if not exists &APPLDR.TEL.DAT then gosub INITPG 
then return 

open &APPLDR.TEL.DAT as #1 for input 
10 &TELREC « 0 

loop TELl * 

read file fl &RECSTR 

if not found then goto C0NT78 ?* EOF ? 

argstring &RECSTR 
parse . . • 

if (&N <> 2) then goto TELl ;* if not 2 tokens 

then invalid 

&TELREC = 6TELREC + 1 

&P&TELREC - &1 ;* assign physician 

&T&TELREC &2 ;* assign tel. I 

-TELl 
-CONT78 

close #1 

gosub INITPG ;* init unused fields to null 
return 

25 * Subroutine to init vars in panel 
-INITPG 

* NOTE: 57 phy*s per screen X 10 screens 

&XCNT = 1 

loop DOINIT 570 

30 * If var is not initialized yet, then set to null 
if (&.P&XCNT = &P&XCNT) then fiPfiXCNT = 
if (&.T&XCNT = &T&XCNT) then &T&XCNT = 
&XCNT = &XCNT + 1 

-DOINIT 

return 



20 



35 



40 



* Subroutine to init vars in panel 
-INITBL 

&PAKM1 = &1 
&CNT = &1 

loop INITA while (&CNT 8) 



&ENT&CNT="" ; &NUM&CNT=*"" ;&SPEED&CNT="« ;&PTYPE&CNT=»" ;&MTYP 
;&NAME&CNT="" 

&CNT = &CNT + 1 

45 -INITA 

return 

* Subroutine to save panel data 
-SAVEDATA 

50 
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iPARMl = &1 

* Make sure receive path is valid 

&PATHSPEC « &trixn(&PATHSPEC) 

if (&sub3tr(&PATHSPEC, ilength(&PATHSPEC) , 1) <> *\*) then 
&HSPEC = "fiPATHSPECX*.*" 

else &HSPEC - "iPATHSPEC*.*" 

if (&f valid (anSPEC) = YES) then goto C0NT5 

snsg "qRECEXVE PATH invalid. 

display cursor 1 

return 1 

* Validate each entry 
-CX)NT5 

&CNT = 1 

loop VALIDATE 8 

&ENT&CNT = &trim(&ENT&CNT) 

* If entry name is null, then get next record 

if (&ENT&CNT = then goto INCR 

* Validate port # 

&NUM&CNT = &trilD(<iNUM&CNT) 

if (&NUM&CNT > 0) and (&NUM&CNT < 16) then goto C0NT6 
if (&NUM&CNT = ••ANY") or (&NUM&CNT - ••SHR"») then goto 

CONT6 

smsg ••qlnvalid PORT # for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+3) 
return 1 

-C0NT6 

* Validate modem speed 

&SPEED&CNT " &trim(&SPEED&CNT) 

if (&instr("&SPEEDCHK*»,"&SPEED&CNT,«') > 0) then goto 

C0NT7 

smsg "qlnvalid MODEM SPEED for Entry Name &ENT&C3Pr»' 
substitute display cursor &calc(&CNT -1*6+4) 
return 1 

-C0NT7 

* Validate Port Type 

&PTYPE&CNT = &trim(&PTYPE&CNT) 

if (&instr(*»&PORTCHK»,'»&PTYPE&CNT,'») > 0) then goto C0NT8 
smsg "qlnvalid PORT TYPE for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+5) 
return 1 

-CONT8 

* Validate Modem Type 

&MTYPE&CNT = &trira(&MTYPE&CNT) 

if (&instr(»«&MODCHK","&irrYPE&CNT,^») > 0) then goto OONT9 
smsg "qlnvalid MODEM TYPE for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+6) 
return 1 
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-C0NT9 

* Validate Modem Name/Class 

&NAME&CNT = &trin(4NAME&CNT) 

if ("fiPTYPEfiCNT" = "HOSTS") then goto CHECKHST 
else goto INCR 

* Since PORT TYPE is HOSTS, make sure MODEM NAME/CLASS has 3 tokens 
separted by 

* a blank 
-CHECKHST 

if {&NAME&CNT « then fiFIAGNG « Y 

else 6FIAGNG = N 

else argstring &NAME&CNT 

else parse " " . . . 

if (&N <> 3) or (6PIAGNG « Y) then smsg "qlnvalid format 
for MODEM NAME/CLASS for Entry Name &ENT&CNT" 

then substitute display cursor &calc(&CNT -1*6+7) 
then return 1 

-CONTIO 
-INCR 

&CNT = &CNT + 1 

-VALIDATE 

smsg '^gUpdating configuration files • • • one moment please" 

* If only validation required, then return 

if (&PARM1 = »F1") then return 0 

* All fields were valid. Write records to configuration file. 

open &APPLDR. CONFIG. DAT as #1 for output 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "qCould not open file 
&APPLDR. CONFIG. DAT. Process aborted. Press ENTER." 
then stop 

write file #1 "&PATHSPEC" 

&CNT = 1 
loop WRITEl 8 

* If Entry Name is blank, then don't write this record 

if (fiiENT&CNT = "") then goto NEXTREC 

write fi le #1 
"&ENT&CNT-&NUM&CNT-&SPEED&CNT-6PTYPE&CNT-&MTYPE&CNT-&NAME&CNT" 
-NEXTREC 

&CNT « &CNT + 1 

-WRITEl 

close #1 

* If tel # panel never accessed, then skip write 

if (&.P1 = &P1) then goto D0NE2 

* Sort phyisician/telephone arrays 

sortarray &P 570 ORDER &T 
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INCR3 

-INCR3 

-WRITE2 
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open & APPLDR.TEIi.DAT as fl for output 
&CNT = 1 
loop WRITE2 570 

if (&trim{&P&CNT) = or (&tri]t(&T&CNT) «= then goto 

write file #1 •&left(&triin(&P&CNT) ,3)-&trim(&T&CNT)" 

&CNT = &CNT + 1 

close fl 

10 "D0NE2 

* If subordinate phy screen never accessed, then skip write 

if (&FIRSTSUB - Y) then goto D0NE3 
sortarray &M &HTOT 

open &APPLDR.HIER.OAT as #1 for output 
&CNT = 1 

15 loop WRITESUB fiHTOT 

if (&triin(&M&CNT) = then goto WRITESUB 
write file #1 
-WRITESUB &CNT = &CNT + 1 
-D0NE3 

smsg "qUpdate to configuration files complete. " 
wait 2 
stop 

* Help routine 
-HEUPl 

^ * Make sure user's cursor is on an input field 

if (&substr(&SFIELD,l,l) = ••T") or (&substr(&SFIELD,l,l) 
= "O") or (&substr(&SFIELD,l,l) = "O") 

then smsg "({When selecting help, make sure cursor is on an 
input field." 
20 then return 

&FLD - &5Ubstr(&SFIELD,2) ;* get input field niunber 

display save ;* save video 

* Help for receive file 

if (&FLD » 1) then display panel CONFIGHl 
35 then goto USERINP 

if ((&FLD \ 6) =0) then &FLD = 5 
else &FLD = &FLD \ 6 - 1 

* Help for entry neuae 

if (&FLD = "I") then display panel CONFIGH2 
^ then goto USERINP 

* Help for port number 

if (&FLD = »2") then display panel C0NFIGH3 
then goto USERINP 



* Help for BOdeia speed 

if (&FLD = ••3") then display panel C0NFIGH4 
then goto USERINP 
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* Help for port typo 

if (&FLD <> "4") then goto CONTll 

-C0NT12 

display panel C0NFIGH5 

-C0NT13 

display input &RESPONSE 

if (&RESPONSE « ESCAPE) then display restore 
then retitm 

if (&RESPONSE <> PGDN) then goto C0NT13 
display panel C0NFIGH6 

-C0NT14 

display input &RESPONSE 

if (&RESPONSE ESCAPE) then display restore 
then retium 

if (&RESPONSE <> PGUP) then goto C0NT14 
goto C0NT12 

* Help for modem type 
-CONTll 

if (&FLD <> "5") then goto C0NT15 

-C0NT16 

display panel C0NFIGU7 

-C0NT17 

display input (RESPONSE 

if (&RESFONSE « ESCAPE) then display restore 
then return 

if (6RESP0NSE <> PGDN) then goto CONT17 
display panel C0NFIGH8 

-C0NT18 

display input (RESPONSE 

if ((RESPONSE = ESCAPE) then display restore 
then return 

if ((RESPONSE <> PGUP) then goto CONT18 
goto C0NT16„ 

-CONT15 

* Help for modem name or class 

if ((FLD <> ••0") then goto USERINP 

-C0NT19 

display panel C0NFIGH9 

-C0NT20 

display input (RESPONSE 

if ((RESPONSE «= ESCAPE) then display restore 
then return 

if ((RESPONSE <> PGDN) then goto CONT20 
display pemel CONFIGHA 

-C0NT21 

display input (RESPONSE 

if ((RESPONSE « ESCAPE) then display restore 
then return 

if ((RESPONSE <> PGUP) then goto C0NT21 
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goto C0NT19 

* Wait until user presses escape 
-USERINP 

display input (RESPONSE 

if (&RESPONSE <> ESCAPE) then goto USERINP 
else display restore 
else return 



* Subroutine for subordinate phy ops. 
-DOSUBORD 

* HeJce sure user's cursor is on an input field 

if (&substr(&SFIELD,l,l) - "T") or (&substr (&$FI£LD, 1,1) 
= "O") or (&substr(&SFIEIiD,l,l) » "O") 

then siQsg "cfWhen selecting F2, make sure cursor is on an 
input field." 

then return 

* Get index to array &P 

&FPOS = &substr(&SFIELD,2)/2 
&RP0S = &substr(&SFIELO,2)\2 
&IASTFLD = &SUbstr(&SFIELD,2) 
&FPOS = &PG * 57 + &FPOS + SRPOS 

* MeJce sure physician specified in input field 

if (&triin(&P&FPOS) - then snsg "qfMo physician specified 
in input field." 

then return 

* If 1st time in subord. ops. then read HIER.DAT into RAM 

if (&FIRSTSUB = N) then goto C0NT67 

&FIRSTSUB = N ;* set 1st time flag to NO 

&HTOT = 0 

if not exists fiAPPLDR. HIER.DAT then goto CONT67 
open &APPLDR. HIER.DAT as fl for input 
loop READHIER * 

read file #1 &RECSTR 

if not found then goto OUTl 

&HTOT = &HTOT + 1 

6M&HTOT = &RECSTR 

-READHIER 
-OOTl 

close #1 

-C0NT67 

* Find match for current physician against master phy in HIER.DAT 

&HCNT = 1 

loop CHECKHR &HTOT 

if (&P&FPOS » 6substr(&M&HCNT,l,3)) then goto CONT91 
&HCNT = &HCNT + 1 

-CHECKHR 

* No match 

&XXC = 1 
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&HCNT = END ;* flag for new element in array &N 
goto CONT92 

-C0NT91 

* Break out subordinate phy*s into vars for panel 
5 argstring &M&HCNT 

parse 

* If only master phy specified, then skip subordinate process 

&XC =2 ;* start at 2nd parm 

if (&N « 1) then &XXC - 1; then goto CONT92 
10 loop DUMPSUB &calc(&N - 1) 

&XXC - &XC - 1 

&S&XXC - &&XC ;* assign sub phy 

&XC » &XC + 1 

-DUMPSUB 

&XXC = 4XXC + 1 

75 

-CONT92 

* Clear all unused panels fields 

loop CLEAKALL while (&XXC <» 18) 
&S&XXC = 
&XXC » &XXC + 1 

20 -CLEARALL 

&MESSAGE3 = »" 

&MESSAGE4 = "TAB-Next Field F2-Phy/Tel Maint F10-Help»» 
&NESSAGE5 = "fiPaFPOS" assign master phy to psmel var 

display panel CONFIGTl.PNL overlay 

-CONT40 

display input &RESP 
if (&RESP <> F2) and (&RESP <> FIO) then smsg "qinvalid 
response ..." 

then goto C0NT40 

30 * Back to tel maint screen ? 

if (&RESP > F2) then gosub SAVESUB 
then return 

if (&RESP <> FIG) then goto CONT40 

* HELP ops. 

35 display save 

display panel CONFIGHS 

-USERINP3 

display input &RESP 

if (&RESP <> ESCAPE) then goto USERINP3 
display restore 
goto CONT40 

* Subroutine to save subordinate phy panel variables to a ram array 
-SAVESUB 

* Construct new string in HIER.DAT format 

* If flag to append to end of array &M, then increment array 
counter 

* NOTE: &HTOT represents # elements in array &M 
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if (&HCNT = END) then &HTOT = &HTOT + 1 
then &INDEX « &HTOT 

* Otherwise use current index to array &M 
else &INDEX » &HCNT 

&XXC = 1 

&H&INDEX « "&left(&trim(&P&FPOS),3, • ;* assign 

master phy 

loop CONSl 18 

if (&trii&(&S&XXC) = then goto INCR2 

&S&XXC » "&left(&trin(&S&XXC),3,« •)* 

&M&INDEX » "&M&INDEX..&S&XXC.-" ;* append subordinate 

phy 
-INCR2 

&XXC = &XXC + 1 

-CONSl 

return 
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* Script: DIAG.SCR 
* 

* Function: Main driving script for Diagnostic PC 

5 

* Globalize vars 

on error 

* Debug on ? 

if (&1 « "DEBUG") then define &DEBUG » "Y" 
10 then strace newlog 

else define &DEBUG - "N" 

* Subordinate phy»s support on ? 

global &HIER 

if (&1 = HIER) or (&2 = HIER) then &HIER » Y 
else &HIER = N 
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* If sequence log file exists, then erase it 
if exists logseq then quiet erase logseq 

* Provide mechanism to allow user to abort via function key PIG 
global &GETOXrr 

fiGETOUT = N 

on attnJcey FIO &GET0OT = Y 
clear 

25 smsg "qlnitialization in progress one moment please.* 



30 



35 &TOTFIIiES = 0 

* Get script application drive 

&APPLDR = &option(SDRIVE) 

* Make sure path is suffixed with a backslash 
if (&substr(&APPLDR, alength(&APPI*DR) , 1) <> 'X') then 

&APPLDR = "&APPLDR\" 

* Sort telephone # file (TEL. DAT) by physicians initials (MAJOR) 
to tel # (MINOR) 

if not exists &APPLDR.TEL.DAT then clear 
then read line &Q1 "q&APPLDR.TEL.DAT does not exists. 
Application cannot continue. Press ENTER." 
then quiet stop all 

edit &APPLDR.TEL.DAT ex SORTTEL.EDS NODISPLAY 



40 
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global 


&APPLDR 


;* application drive 


global 


&NUMPORTS 


;* # of avail, ports on PC 


global 


&NUMTEL 


;* # of telephone fs 


global 


fiNUMPHY 


;* # of physicians to call 


to call) 






global 


&RXn9REL 




global 


&TOTMAST 


;* tot # of master phy's 


global 


&ABORT 


editor abort flag 
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* Read configuration and telephone files into RAM vars 
ex READCONF 

* Make sure there are files needed to be transferred 
if not exists &OUTDIR.*.* then clear 

then smsg "qThere are no outstanding files in directory 

&OUTDIR" 

then read line &Q1 «qthat need to be transferred. Press 

ENTER." 

then quiet stop all 

* Make sure temp directory exists as subdirectory to outgoing 
directory 

quiet mkdir &OUTDIR.TEMP 

* Check if user pressed FIG to abort 

if (&GETOUT - Y) then goto ALU)0NE2 

* Start multiple sessions 

ex STARTSES 
&HRC &retcode 
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* If any failures on sessions, then stop script and exit relay 

if (&HRC = 1) then quiet stop all 

* Check if user pressed PIO to abort 

if (&GETOUT = Y) then goto ALLD0NE2 



smsg **qSession start successful; • 

* If no subordinate phy's support 

if (&HIER = M) then goto C0NT91 

30 * Load master/subordinate phy's hierchical structure into ram and 
store the 

* total number of master phy*s 

if exists &APPLDR.HIER.DAT then goto RDHIER 

-C0NT91 
^ &TOTMAST = 1 

loop DOPHY &NUMPHY 

global &M&TOTMAST; &M&TOTMAST = "&RPHY&TOTMAST.-" 
&TOTMAST &TOTMAST + 1 

-DOPHY 

&TOTMAST = &NUMFHY 
goto C0NT82 
•RDHIER 

&TOTMAST = 1 

open &APPLDR.HIER.DAT as #1 for input 
loop DOMAST * 
4S read file #1 &RECSTR 

if not found then goto C0NT81 

global &N&TOTMAST;&M&TOTMAST » &RECSTR 

&TOTMAST = &TOTMAST + 1 

-DOMAST 
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-C0NT81 

close #1 

&TOTMAST = fiTOTMAST • 1 

-CONT82 

* Sort files in outgoing directory by physician (MAJOR) to xray id 
(MINOR) 

* and load into ram array 

&ABOin* = M 

edit tempx ex SORTIOAD.EDS NODISPLAY 
if (&ABORT » Y) then goto ALLD0NE2 

smsg **gBrea)clng out master files Into sub-files ..." 

* Erase any files in temporary directory 

quiet erase &OOTDIR.TEMP\*.* 



* load into ram array 

open temp as #1 for input 

&HCMAP =0 ;* # records written to MAP. DAT 

open &OXrrDIR. TEMP\MAP.DAT as #4 for output 
20 loop LOADREC * 

read file fl &RECSTR 
&RECSTR = &upper(&RECSTR) 

* If EOF, then done loading 

if not found then goto CONTl 

25 

* Make sure there are 3 characters for extension 

if (&length(&trim(&substr(&RECSTR, 10> 3))) <> 3) then 
goto LOADREC 

* Don*t process any directories 

30 if (&substr(&RECSTR, 16, 5) » **<DIR>**) then goto LOADREC 

&TOTFILES ^ &TOTFILES + 1 ;* increment file 

counter 



* Store filename 

&FILE&TOTFILES = ■*&trim(&substr (&RECSTR, 1, 
8) ) .&triin(&substr(&R£CSTR, 10, 3))" 

* Store master physicians initials. For subordinate phy's 
operations, extract 

* position 13-15 of record (master phy.) and for no subordinate 
phy • s , extract 

* position 10-12 (just extension of fileneune) . 

if (&HIER = N) then &EXT&TOTFILES 
»&trim(&substr(&RECSTR, 10, 3))«» 

else &EXT&TOTFILES = ••&trim(6substr (&RECSTR, 13, 3))" 

* Init status of xfer (O = Outstanding) 

define &STAT&TOTFILES = "O" 

* Split file into even bytes for each remote port 
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gosub SPLIT &FILE&TOTPILES 

-LOADREC 
-CONTl 

close #1 
close #4 

* If no records written to MAP .DAT then erase it 

if (ftHCMAP « 0) then quiet erase 60UTDIR.TEMP\MAP.DAT 

* Erase temporary file 

quiet erase temp 

* Check if user pressed FIO to abort 

. if (&GETOUT = Y) then goto ALLD0NE2 

* Set completion flag for physicians with no files to be sent 

&Z » 1 

loop CHECKFIN &NUMPHY 
&Y = 1 

loop CHECKEXT &TOTFII1BS 



* Match on file extension with physician in master list ? 

if (&EXT&Y ^ &RPHY&Z) then goto J99 
&Y = &Y + 1 

-CHECKEXT 

25 &FIN&2 = "Y" ;* set completion flag for 

physician 
-J99 

&z = &z 1 

-CHECKFIN 

^ * Get directory relay gold is running in 
global &RUNREI. 
&RTJNREL ^ &RDRIVE 

if (&substr(&RUNREL,&length(&RUNREL) ,1) <> 'X') then 
&RUNREL = "&RUNREL\" 

35 

* Copy application online profile to relay's directory 

if exists &RUNREL. RELAY. ONP then copy file &RUNREL* RELAY. ONP 
&RUNREL . RELAY . HLD 

then copy file &APPLDR. RELAY. ONP &RUNREL. RELAY. ONP 
else copyfile &APPLDR. RELAY. ONP &RUNREL. RELAY. ONP 

smsg ''qDispatcher starting • • . " 
&CNT = 1 

&HIGHPRI - 1 ;* pointer to highest priority 

record 
45 loop INFIN * 

* Check if user pressed FIO to abort 

if (&GETOUT ^ Y) then goto ALLD0NE2 
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* debug line to shorten traces 

if (&DEBUG Y) then wait 2 
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* If current record's file has already been sent or file is already 
in 

* progress of being sent, then skip to next record 

if (&STAT&CNT = "S") or (&STAT&CNT = "Q") then goto 

C0NT66 

* Get # of ports available on remote PC 

gosub NUKPORT 

&CURRNPT » firetcode ;* store # of ports remote PC has 

* Loop through ports on central PC 

&CX = 1 

&PCNT « 0 ;* init i of ports used by 

physician (remote pc) 

&OFFAVAIL ;* init 1st offline session 

available 

loop XFERCHK &NUMPORTS 

* If offline session available, then assign relative session I 

if (&0FFAVAIL = «••) and (&HSTAT&CX "OFFLINE") then 
&OFFAVAIL » &CX 



* If match on physician, then increment coimter for # of ports this 
physician 

* is currently using 

if (&EXT&CNT - 6SPHY&CX) then fiPCNT - &PCNT + 1 
25 then &CTEL&PCNT = &STEL&CX ;* store tel. « in 

use 

* If match on physician and port status is online and idle emd 
there is a file 

* outstanding 

30 if (&EXT&CNT = &SPHY&CX) and (&HSTAT&CX = "ONLINE") and 

(&instr(OI,&STAT&CNT) > 0) 

else goto C0NT29 



* MaXe sure ve have the next outstanding (sequential) file to send 
to this 

* physician 

gosub CHKOUT "6EXT&CNT" 

* Update ptr to record 
StCNT = &yCNT 

* Call subroutine to assign next sub-file (if any) , and update 
status ' s 

* (ie. &SPL and &STAT) 

gosub ASSIGNFL &CX &CNT 

4S * It filename is null (no outstanding files) , then get next record 
if (&XFILE&CX « "") then goto C0NT66 

substitute define &.SPHY&CX = "&EXT&CNT" ;* assign 
physicans initials 
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substitute define &.IND&CX « &CNT ;* assign index to 



define iHSTAT&CX = "ONXFER" ;* assign cononand 

gosub SHOWDISP "&fext(&FILE&CNT) " "fiPILEfiCNT" "ONXFER* 
"&CNT" "&XFILE&CX" 

gosub SHOWALL 
goto C0NT66 

-CONT29 

&CX = &CX + 1 



*XFERCHK 

* If no offline session available, reset record ptr. bacX to 
beginning 

* of highest priority physician 

if (&OFFAVAIL = then tCKT » &HIGHPRI 

'5 then goto CONT67 

* If # of ports in use on current remote is less than the total # 
of ports 

* available on remote, then get next available tel # for remote PC 

^ if (&PCNT < fiCURRNPT) then gosub GETNEXTN 

then &HRC » &retcode 

* Else, no more ports availed>le for current physician 

else goto C0NT66 

* If no tel* # was found, then process next record 
if {&HRC = 0) then goto CONT66 

* Since a # was found, make sure ve have next outstanding 
(sequential) file to 

30 * send to this physician 

gosub CHKOUT "fiEXTfiCNT" ;* get proper record ptr. for 
this physician 

fcCNT = &¥CNT ;* reset original record ptr. to proper 
ipecord ptr. 

35 * Update status var for session 

* Call subroutine to assign next sub-file (if any), and update 
status ' s 

* (ie. &SPL and &STAT) 
gosub ASSIGNFL &OFFAVAIL &CNT 



* If filename is null (no outstanding files) , then get next record 

if (&XFILB&OFFAVAIL = then goto C0NT66 

substitute define & • SPHY&OFFAVAIL = "fcEXTfiCNT" ;* assign 
phy. initials 

substitute define &.STEL&OFFAVAIL » &NEWNUN ;* assign 

tel. # 
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define &XREQ&OFFAVAIL - "CALL" ;* assign sub-command 



substitute define & » IND&OFFAVAIL « &CNT ;* assign index 

to record 

define &HSTAT&OFFAVAIL = "OFFXFER" 

gosub SHOWDISP "fcfext{&FILE&CNT) " "&FILE&CNT" "OFFXFER" 
"&CNT" "&XFILE&OFFAVAIL" 
gosub SHOWALL 

-C0NT66 

&CNT = &CNT +1 ?* increment record ptr# 



* If record ptr has reached last record, then reset ptr. to Xst 
record 

if {&CNT > &TOTFILBS) then &CNT » 1 

-C0NT67 

* If any online sessions are idle (no xfer in progress) , check if 
all files 

* were sent for this physician 

&CX =1 ;* index for session 

counter 

loop -CHECKST &NUMPOKTS 

* If session is not online and idle 

if (&HSTATfcCX <> "ONLINE") then goto C0NT69 

* For sub-file ops., update &STAT var using &SPL array for 
verification 

&BG « 1 

loop CHECKFL2 &TOTFILBS 
gosub CHECKFL &BG 
&BG = &BG + 1 

-CHECKFL2 

* Since session is online and idle; check if all files were sent 
for this 

* physician 

gosub CHKOUT "aSPHYfiCX" 
&HRC = &retcode 

* If no outstanding files and no transfers for this physician 

if (&HRC = 0) then goto CONT74 

* If physician has transfers in progress but none outstanding 

if (&HRC = 2) then define &XREQ&CX - "HANGUP";* assign 
command to session 

then define &HSTAT&CX = "HANGUP" ;* update status var 

for session 

then goto CONT69 

* Implied outstanding files for this physician 

* Otherwise, send file 
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* Call subroutine to assign next sub-file (if any), and update 
status ' s 

* (ie. &SPL and &STAT) 

gosub ASSIGNFL &CX &YCNT 

* If filename is null (no outstanding files) , then get next record 

if (&XFILE&CX - "") then goto CONT69 

substitute define &.SPHY&CX = "iEXTfiYCNT" ;* 
assign phy. initials 

substitute define &.IND&CX » &YCNT ;* assign index to 

record 

define &HSTAT&CX "ONXFER" ;* update status var 

for session 

gosub SHOWDISP *'&fext(&FIIiE&YCNT) " "&PILE&YCNT" 
"ONXFER" "&YCNT" "&XFIU5&CX" 
gosub SHOWALL 
goto C0NT69 

* Since no more files for this physician, hangup session 
-C0NT74 

define &XREQ&CX « "HANGUP" ;* assign command 

to session 

define &HSTAT&CX = "HANGUP" ;* update status var 

for session 

* Update file xfer completion flag for this physician 
*temp line 

gosub UPDCOMPL &SPHY&CX 

* Check if all xfer*s for all physicians is complete 

gosiib STATDONE 
&HRC = &retcode 
wait 2 

* If all xfers completed, then wrap it up 

if (&HRC = 0) then goto ALLDONE 

-CONT69 

&CX = &CX + 1 

-CHECKST 



-INFIN 
-ALLDONE 

clear 

gosub SHOWALL 

8 m s g 

"q* *" 

smsg "q " 

smsg "q File transfers complete" 
smsg "q " 
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s m 8 g 
"q* 

smsg "q 
sxnsg "q " 
smsg •'q 

* Erase any files in temporary directory 
quiet erase &OUTDIR.TEMP\*.* 

* If old online profile existed before application ran, then 
restore old profile 

* Otherwise erase online profile from relay's directory 
if exists &RUNREL.REIAY.HLD then copyf ile RELAY. HLD 

&RUNREL . RELAY . OHP 

then quiet erase fiRUNREL.REIAY.HLD 
else &RUNREL.REIAY.ONP 

* 

* Cancel all sessions 
* 

-ALLDONE2 

&KILUnjM = 2 ;* init 1st session « to kill 

* Loop session #2 to last session 

loop KILLSESS while (fiKILLNUM <= icalc ( &NUMPORTS + 1)) 

25 * Request to kill session 

gosub cancel &KILUnJM 
&HRC = &retcode 

* If unable to cancel session, alert user 

if (&HRO0) 

30 * smsg '*WUned>le to cancel session #&KILUn)Ni*' 
&KILLNUM = fiKILUnJM + 1 

-KILLSESS 
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* Produce summary file 

gosub SHOWALL FILE 

* Produce detail file 

gosub SHOWDET 

smsg "qFile transfer SUMMARY (by physician) in file 

LOGSUM." 

smsg "qFile transfer in DETAIL {by file) in file LOGDET." 
smsg "qTransfer request SEQUENCE in file LOGSEQ.** 



smsg "qApplication stopped ••••• 

quiet stop all ;* thats it folks I! 

-CAHCEL quiet session stop &1 
if (&RO0) return &RC 
smsg "q 
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smsg "QCancelling session Please Stand by." 

global &CANCEL 

&CANCEL = "NO" 

on timer 5 &CANCEL = "YES" 

5 

loop -canvait while (&CANCEL="NO") 
quiet session status &1 
-CANWAIT if (&RO0) goto -CANSTOP 

-CANSTOP on timer 
10 return 0 

* — „ 

* 

* Subroutine to loop through # of ports per PC table 

* — — . 
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it 

-NUHPORT 

&XCNT = 1 

loop FINDPHY &NUNPHY 

* If match on initials, then return f of ports on remote PC 
if (&EXT&CNT ^ &RPHY&XCNT) then return &RPT&XCNT 
&XCNT = &XCNT + 1 



-FINDPHY 

* No match found 
25 return 0 

* ■ — . ^ . 

* 

* Subroutine to get next available # for remote PC 
★ . 

30 * 

-GETNEXTN 

* loop through tel. #*s 

&XCNT = 1 

loop GETNUH &NUMTEL 

^ * if no ports currently in use by this physician 
if (&PCNT = 0) 
else goto CONT58 



* if match on physician, store 1st tel. # 

if (&EXT&CNT = &PHY&XCNT) then &HEWNUM = &TEL&XCHT 
then return 1 
goto CONT59 

* loop through # of ports physician's PC is currently using 
-CONT58 

&CT = 1 
&NEWNUM = •" 
loop TRAVl &PCNT 

* if match on physician and tel # is in use then get next tel# 
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if (&EXT&CNT = fiPHYfiXCNT) and (4TEL&XCNT = 6CTEL&CT) 
then goto CONT59 

* if match on physician and tel I is not in use, then store tel 

if (&EXT&CNT = aPHYfiXCNT) and (4TELtXC3IT <> &CTEMCT) 
and (&NEWNUM - "••) then &NEWmm - STELiXCNT 
&CT = &CT + 1 

-TRAVl 



* If a # was found physicians PC was not currently using, then set 
positive 

* return code 

if (&NEWHUM <> then return 1 

-CONT59 

&XCNT = &XCNT + X 

-GETNUM 

* No available tel # for current physician 

&NEWNUM = 
return 0 

20 

* 

* 

* Subroutine to check if current session for physician has any more 

* files that need to be sent 

* . . ^ ^ 

— — * 

-CHKOUT 

&CPARM = "&1" ;* store physicians initials 

* Loop through record array 
&YCNT 1 ;* set index to beginning of array 

loop PERFCHK &TOTFILES 

* If match on phy. then jump out 

35 if (&EXT&yCNT = fiCPARM) then goto CX)NT60 

&YCNT = &YCNT +1 ;* set index to next record 

-PERFCHK 

* Since we have index to 1st record for physician (&YCNT) , then 
40 check if 

* outstanding files exist 
-CONT60 

* Loop through records for physician 

&FLAGP = N ;* flag for in progress xfer*s 

^ loop PERFl &TOTFILBS 

* If outstanding file to send and match on physician then return 
a 1 

* (outstanding files to send) 

50 
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if (&instr(OI,&STAT&yCNT) > 0) and (&EXT&YCNT = &CPARM) 
then return 1 

* If in progress xfer and match on physician, then set flag 
if (&STAT&YCNT « "Q") and (&EXT&YCNT = &CPARM) then 

&FIAGP = Y 

&YCNT » fcYCNT + 1 

* If physician changed and physician had xfer*8 in progress 
if (&EXT&YCNT <> &CPARM) and (6FIAGP = Y) then return 2 

* If physician changed and physician had no xfers in progress 
if (&EXT&YCNT <> &CPARM) and (&FIAGP = N) then return 0 

-PERFl 

return 0 ;* catch-all for no outstanding file to 

send 

♦ — . 



* Subroutine to update file transfer completion flag for a 
physician 

* (ie. all files were transferred for this physician) 

* 

25 -UPDCOMPL 

* Locate physician in array &FIN 

&ZCNT = 1 

&X1P ^ &1 ;* assign physicians initials 

loop LOCPHY &NUMPHY 

30 * If physician match, then update status flag 

if (&X1P = &RPHY&ZCNT) then fiiFIN&ZCNT = "Y" 
then return ;* return to caller 

&ZCNT = &ZCNT + 1 

-LOCPHY 

return 

35 
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* Subroutine to check if all xfer*6 are completed for all 
physicians 



— — * 

-STATDONE 

&ZCNT = 1 

* loop through status array 

loop CHKDONE &NUMPHY 

* if a physician has files outstanding then return a 1 

if (&FIN&ZCNT = "N") then return 1 
&ZCNT = &ZCNT + 1 
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-CHKDONE 

* all transfers complete 

return 0 

5 

*- — . . . „„„. 

— * 

* Subroutine to display transfer requests 

-SHOWDISP 

clear 

&PARM1 = &1 
&PARM2 = &2 
&PARN3 &3 
'5 &PARM4 = &4 

&PARH5 = &5 

open logseq as #3 for append 

s m s q 

•fq* _ 

*» 

^ write file #3 "Sdate itime Transfer request for physician 

&PARMX'* 

* Show sub-file 

if (&PARM20&PARM5) then smsg **q&tiine Request for 
25 physician: &PARM1 File: &PARM2 Sub-file: &PARM5" 

then write file #3 "File: &PARM2 Sub-file: &PARM5 PC 
session state: &PARH3*' 

else smsg "q&time Request for physician: &PARN1 File: 

&PARM2'> 

else write file #3 "File: &PARM2 PC session state: &PARM3'' 

30 

write file #3 "Index to record: &PARM4" 

smsg 

ifq* Z 

*n 

w rite file #3 

35 «* 

*R 

close #3 
return 
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* Subroutine to display status of xfer*s by each physician 

* 

-SHOWALL 

* If a paramter of 'FILE' is passed, then stats are written to 
LOGSUM 

&GPARM <= &1 

if (&GPAPM = "FILE") then &GPARM = Y 

50 



32 



EP0 512 174 Al 



else &GPAKN = N 

if (&GPARM = Y) then open LOGSUM as <2 for output 

then write file 12 DATE: &date TIME: 

&tine 

then write file #2 " 

then write file #2 " Communication Status by 

Physician" 

then write file #2 "Phy Total Files Sent In 

Progress Outstanding" 

else smsg "q Commxmication Status by Physician"* 

else smsg "qPhy Total Piles Sent In Progress 

Outstanding" 

&MCNT » 1 

&OLDPHY = "&fext(&FILE&MCNT)";&FCNT = 0;&FSCNT = 0;&FDCNT 
» 0;&FOCNT = 0 

loop GETST fiTOTFILES 

* If physicians changed, then reset vars 

if (&fext(&FILE&MCNT) <> &OLDPHY) and (&GPARM = N) 

then smsg 
"q&left (&OLDPHY, 3) &lef t ( , 10) «lef t (&FCNT, 3) &lef t ( , 9) &lef t (&FSCNT, 3 
) &lef t { , 8) fileft (&FDCNT, 2) &lef t ( , 11) Sclef t (&FOCNT, 3) " 

if (&fext(&FILE&MCNT) <> &OLDPHY) and (&GPARM - Y) 

then write file #2 
"&left (&OLDPHY, 3) &left( , 10) fileft (&FCNT,3) &left( ,9) fileft (&FSCNT, 3) 
&left ( , 8) &left (&FDCNT, 2) &left( , 11) &left (&FOCNT, 3) " 

if (&fext(&FII£&MCNT) <> &OLDPHY) 

then &OLDPHY = &fext(&FILE&MCNT) 

then &FCNT =0 ;* total files 

then &FSCNT =0 ;* files sent 

then &FDCNT =^ 0 ;* files being sent 

then &FOCNT =0 ;* files outstanding 

* Increment acciunulators 

&FCNT = &FCNT + 1 

if (&STAT&MCNT = "O") then &FOCNT = &FOCNT + 1 
else if (&STAT&MCNT "I") or (&STAT&MCNT = "Q") then 
&FDCNT = &FDCNT + 1 

else if (&STAT&MCNT = "S") then &FSCNT = &FSCNT + 1 
&MCNT = &MCNT + 1 

-GETST 

if (&GPARM » N) then smsg 
"q&left (&OLDPHY, 3) fileft ( , 10) &lef t(&FCNT, 3) &left ( , 9) &left (&FSCNT, 3 
) &lef t ( , 8) &lef t (&FDCNT, 2) &lef t ( , 11) &lef t (&FOCNT, 3) " 

else write file #2 
"&left (&OLDPHY, 3) fileft ( , 10) &left (&FCNT, 3) &left ( ,9) ilef t (&PSCNT, 3) 
&left ( , 8) &left (&FDCNT, 2) fileft { , 11) &left (&FOCNT, 3) " 

else write file #2 

"* *n 

else close #2 
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return 



5 * Svibroutine to display DETAIL report on xfer's by file 

* 

-SHOWDET 

open LOGDET as #2 for output 

write file #2 »* ^ DATE: 6date TIME: fitime 

70 *" 

write file #2 " 

write file #2 " Communication Status by Pile" 

write file #2 " Transfer 
File Time Transfer Byte* 

write file #2 "Phy Filename Status Time 

Size Completed /Sec Port" 
&MCNT « 1 

loop GETST2 &TOTFIIES 



* Map for display 

gosub DOBREAK 
&MCNT = &MCNT + 1 

-GETST2 

Close #2 
return 



* Subroutine to breakout tokens for detail report 

* 

30 -DOBREAK 

* No sub-files 

if (&.SPL1&MCNT = fiSPLl&MCNT) then goto C0NT99 

* Sub-files 

* Get # of subfiles 

& B X D 

&substr ( &SPU&MCNT , Scale (&instr ( &SPL1&MCNT, " , ") -1) , 1) 
&UCNT = 1 

fiTOTBYT = 0;&TOTFT = 0 
&OUTSTAND = N;&HIiDXCOM = "" 



* Loop for # of sub-files 

loop GETSUB &BXD 

&HXD = &UCNT.&MCNT 

argstring &SPL&HXD ;* breakout filename, status 
parse 

&HFILE - &1 ;* filename 

&HLDST = &2 ;* file status (I/O/S) 

* Outstanding ? 

if (&HLDST <> S) then &STATUS = "Outstanding" 
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then &XTIME = "";&XSI2E = ""r&XCOM = ••";&XBTSEC = 
"";&XPORT « 

then &REC&UCNT as 
" &lef t ( • • , 3 ) &lef t ( , 2 ) &lef t ( • ( &HFILE) • , 12 ) &lef t ( , 2 ) &lef t ( 4STATUS , 1 
1) &lef t ( , 1) &lef t (&XTINE, 11) &lef t ( , 1) bright (&XSIZE , 8) &lef t ( , 4) &le£ 
t ( &XCOH, 8 ) &lef t ( , 4 ) (right ( &XBTSEC, 5) &lef t ( , 2) &lef t ( &XPORT, 5) " 

then &OUTSTAND « Y 

then &UCNT = &UCNT + 1 

then goto GETSUB 



* Sent ? 



argstring 6FTM&HXD ;* breakout xfer info 
parse . . • 

&XTIHE = &1;&XSIZE - &2;&XC0M » &3;&XP0RT = &4 



* Accum. byte size 

if (&datatype(&XSIZE) - NUM) then fiTOTBYT = &TOTBYT + 

&XSIZE 

&TOTFT = &TOTFT + &transl (fixtime, ;* accum. 

ft time ( seconds .hh) 

* If last sub-file, then store time xfer completed 

if {&BXD = &UCNT) then &HI1DXCOM « &XCON 

* Develop bytes/sec 

if (&XSIZE = 0) then &XBTSEC = »N/A" 

else &XBTSEC - &calc(&XSIZE*100/&transl (&XTIME, ) 



* Develop xfer time 

if (&length(&XTIME)<='3) then &XTIME = "00:00:006XTIME" 

else &XT1NE 
" &hours ( & substr ( &xt ime , 1 , &calc ( & instr ( &xt ime ,*.')-l))).& substr ( &X 
TIME , &calc { &instr ( &XTIME ,•.•)+!))» 
&STATOS = "Sent" 

&REC&UCNT = 
" &lef t ( " , 3 ) &lef t ( , 2 ) &lef t ( • ( &HFILE) • , 12 ) &lef t ( , 2 ) &lef t ( fiSTATUS , 1 
1) &lef t ( , 1) &left (&XTIME, 11) &lef t ( , 1) bright (&XSIZE, 8) &left ( ,4) 61ef 
t ( &XCOM, 8 ) &lef t ( , 4 ) &right ( &XBTSEC, 5) £lef t ( , 2 ) &lef t ( fcXPORT, 5) " 
&UCNT = &OCNT + 1 

-GETSUB 

* Create master file line 

* Any outstanding sub-files ? 

if (&OUTSTAHD Y) then 

&XTIME=" •» ? &XSIZE==&f size ( &OUTDIR* &FI££&MCNT) ; &XCOM="" ; &STATUS="Out 
standing"; then &XBTSEO"";then &XPORT="" 
then goto WRITE4 

* No outstanding sub-files 

&STATOS=**Sent** ;&XSIZE=&f size (60UTDIR. &PILE&MCNT) 
if (ftHLDXCOM <> "") then &XCOM = 4HLDXC0M 
else &XCOM = "» 
&XPORT="N/A«» 
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* Develop bytes/ sec 

if (&XSIZE = 0) then &XBTSEC = "N/A" 

else &XBTSEC = &calc{4XSI2E*100/&transl{&TOTFT, 

* Develop total xfer time 

if (&T0TFT<=2) then &TOTFT = ".&TOTFT" 

else &TOTFT » 

fisubstr (&TOTFT, 1, &calc (& length (&TOTFT) -2) ) . &substr (fiTOTFT, &calc (& 
length ( &TOTFT) -1 ) , 2 ) 

if (&length(&TOTPT)<=3) then &XTIME « ••00: 00:00 &TOTFT" 

else &XTIME = 

'*&hours(&Biibstr(&TOTFT,l,&calc(&in8tr(&TOTFT, •••)"!))) .&substr{&T 
OTPT, &calc(&instr (&TOTFT, • . » )+l) ) •• 



-WRITE4 

* Write master file record 

write file #2 

••Aleft (&fext (&FILE&MCNT) , 3) 61eft( , 2} &left (&FILE&MCNT, 12) &left( ,2) 
&lef t (&STATUS, 11) &left ( , 1) &left (&XTIME, 11) &lef t ( , 1) firight (&XSIZE, 
8 ) &lef t ( , 4) &lef t ( &XCOM, 8) &lef t ( , 4 ) firight (&XBTSEC, 5) &lef t ( , 2) &lef t 
(&XP0RT,5)»* 

* Write all subfiles 

&UCNT = 1 

loop WRITESUB &BXD 

write file #2 "&REC&UCNT*' 
&UCMT = 6DCMT + 1 

-WRITESUB 

return 

* No sub-files 
-CONT99 

* Outstanding ? 

if (&STAT&MCNT <> •»S") then &STATUS = ••Outstanding'* 

then &XTIME = ••••;&XSIZE = •»";&XCOM = ••";&XBTSEC « ••••;&XPORT 

_ MM 

then goto WRITE3 

* Sent 

argstring &FTIME&MCNT 
parse ••-•• • . . 

&XTIME = &1;&XSIZE » &2;&XCOM ^ &3;&XPORT » &4 

* Develop bytes/sec 

if (&XSIZE = 0) then &XBTSEC « •»N/A*' 

else &XBTSEC = &calc(&XSIZE*100/&transl(&XTIME, •.',•*) ) 

* Develop xfer tine 

if (&length(&XTlME)<=3) then &XTIME = ••00:00:00&XTIME'» 
else &XTINE 
''&hours(&substr(&xtiiDe,l,&calc(&instr(&xti2De, '••)-!))) .&substr(&X 
TIME, scale (&instr(fiXTIME, •. •)+l))'« 
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&STATUS « "Sent" 

-WRITE3 

write file #2 

"&lef t {&f ext ( &FILE&MCNT) , 3 ) &lef t ( , 2 ) &lef t ( &FILE&MCNT, 12 ) &lef t ( , 2) 
&lef t (&STATUS , 11) &lef t ( , 1) &lef t ( &XTIME, 11) &lef t ( , 1) firight (fiXSIZE^ 
8) Sleft ( , 4) &le£t (&XCOM, 8) &left{ , 4) bright (&XBTSEC,5) fileft ( ,2) ileft 
(&XP0RT,5)" 

return 

* — — . . 



* Subroutine to split file into even bytes per remote port 
* — . ——„«.. 



"SPLIT 

&FILB ^ &1 

* Get { of ports for remote PC 

&CNT = &TOTFILES 
gosub NUMPORT 
&HRC « firetcode 

* If Diagnostic PC has less ports than remote, then split file for 

* of ports 

* on diag 

if (fiNUMPORTS < &HRC) then &SPLITNUM = &NUMPORTS 
else &SPLITNUM ^ &HRC 

* Assign MAP. DAT variable (format »-> 
12345123 • 001, FILEl. 12, FILEl. 22) 

fiTEMPMAP = "&FILE" 

* If only 1 port available to transfer file 

if (&SPLITNUM = 1) then goto OUTl 

* Calc # bytes per file 

&HSI2E = &fsize(&OUTDIR.&FILE) 



* If file is less than 2K, then don't bother splitting up 

if (&HSIZE < 2048) then goto OUTl 

* SIZE OF FILE / # OF PORTS USABLE / 256 

&HRECS = &HSIZE/&SPLITmJM 
&hrecs = &hrecs/256 
&SEQ = 1 

open &0UTDIR.&FILE as #3 for input stream binary 

* loop for # of chunks to split file into 

&SPCHT = 1 

loop READSP &SPLITNUM 

* Init total xfer time, bytesize of file, xfer complete time, com 
port used 
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* Variable name conventions =»> &FTM<seq. « of filexindex to 
f ilenai&e> 

&HXD = &SEQ.&TOTF1LES 
5 define fiFTMiHXD = 

* Append temp filename to variable followed by status of O 
(Outstanding) 

* Conventions fiSPLnac where 'n" represents the seq | of the file and 

10 * represents the index to master file array 

substi define &.SPL&HXO » 
"FIU:&TOTFILES . . 4SEQ. &SPLITNDM, O" 

* Append temp filename to MAP. DAT variable 

&TEMPMAP « ••4TEMPMAP.,FILE&T0TFILES..&SEQ.&SPLITNDM" 

IS 

open &OUTDIR*TEMP\FII*B&TOTFILES. •fiSEQ.SSPUTNDM as #2 for 
output stream binary 

* loop for # records for each temp file 
-FRAC 

loop DUMPREC &HRECS 

read file #3 &RECSTR length 256 
if not found then goto DONEREAD 
write file #2 &RECSTR 

-DUMPREC 

* If writing to last file and last record did not reach end of 
file, then 

* attempt to read next record 

if (&SPCNT = &SPLITNUM) and (& FOUND - YES) then goto FRAC 

30 &SPCNT = &SPCNT + 1 

-DONEREAD 

close #2 

&SEQ = &SEQ + 1 

35 -READSP 

close #3 

* Write to MAP. DAT 

write file #4 ••&TEMPMAP*' 

&HCMAP = &HCMAP +1 ;* increment record counter for 

^ MAP. DAT 
-OUTl 

return 
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* 

* Subroutine to assign next sub-file (if any), and update status's 

* (ie. &SPL and &STAT) 

* «„ 

— * 



50 



55 



38 



EP 0 512 174 A1 



-ASSIGNFL 

&PARMI = &X ;* assign index for (XFIIiB (relative comm 
&PARM2 - &2 ?* assign index for &STAT and &FILE (master 

file) 

* Determine how many subfiles master file is broken up into (if 

A^If var not initialized, then assume no sub-files were built for 
this file 

* and assign master filename 
if (&.SPL1&PARM2 - &SPLlfiPARM2) then substi define 

&.XFILE&PARM1 «= "&PILE&PARM2" 

* assign all files queued and none outstanding 
then define &STAT&PARM2 = "Q" 
then return 

* Since sub-files were found, determine next file to send (if any 
more) and 

* update status vars 
&XNPROG = N 

&UCNT =1 ;* init index to 1st sub file 

* Get total # of sub-files 

& B X D 
&substr ( &SPL1&PAIW2 , Scale { fcinstr ( &SPL1&PARM2 , " , " ) -1) , 1) 

* loop for # of sub-files 
loop CHECKSP &BXD 

&HXD ^ &UCNT.&PARM2 
argstring &SPL&HXD 
parse , " ... 

* If sub-file is outstanding then jump out 
if {&2 = "O") then goto OUT5 

* If sub-file is in progress, then flag 

if (&2 = "I") then &INPROG = Y 
^ &UCNT - &DCNT + 1 ;* increment sub-file counter 

-CHECKSP 

* Assumed no outstanding sub-files for master file 

* Any in progress ? 
if (&INPROG = Y) then define &STAT&PARM2 = "Q" 

* Else flag" for all subfiles sent 
else define &STAT&PARM2 = "S" 

define &XFILE&PARM1 = ?* assign null filename 

return 
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* Assumed outstand. files to be sent 
-OUT5 

* Assign filename to send 

substi define 4.XFILE&PARM1 = "fcl" 



50 



55 



39 



10 



15 



20 



EP 0 512 174 A1 



substi define fc.SPUiHXD « "fcl.,!" filename and in 

progress status 

* If there are still more sub-files outstanding and sub-file in 
progress 

if (&UCNT < &BXD) then define &STAT&PARM2 "I" 

* Else no more sub-files outstanding and sub-file in progress 
else define &STAT&PARM2 » "Q" 
return 

* — - 

— - — -* 

* Subroutine update file status (&STAT) for sub-file ops. 
* „ 

— — * 

-CHECKFL 

fiPARMl = &1 ;* assign index for 6STAT (master file) 

* If no sub-files, then return 
if (&.SPL1&PARM1 = &SPL1&PARM1) then return 

* Since sub-files were found, update status vars 

&INPROG = N 

&UCNT = 1 ;* init index to 1st sub file 

* Get total # of sub-files 

25 & B X D 

&substr ( &SPL1&PARM1 , &calc ( &instr ( &SPL1&PARM1 , " , " ) -1) , 1) 

* loop for # of sub-files 

loop CHECKSP2 &BXD 
&HXD ^ &UCNT.&PARM1 
^ argstring &SPL&HXD 

parse " , " • . . 

* If siib-f ile is. outstanding or in progress then return 

if (&2 = "O") or (&2 = "I") then return 
&UCNT = &UCNT + 1 ;* increment sub-file cotmter 

-CHECKSP2 

* Assumed no outstanding sub-files for master file 

* flag for all subfiles sent 

* If status var already set to S (sent) then return 

if (&STAT&PARM1 - "S") then return 
40 define &STAT4PARM1 = "S" 

return 

* Update file xfer completion flag for this physician 
*temp line 

* gosub UPDCONPL &EXT&PARN1 

45 . 

* Check if all xfer's for all physicians is complete 

* gosub STATDONE 

* &HRC = &retcode 

* wait 2 

50 
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* If all xfers completed, then wrap it up 

* return &HRC 

55 A2 
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* SCRIPT: READCONF.SCR 

* FUNCTION: Read configuration and telephone files into RAM vars 

5 on error 

on attnXey FIO &6ET0UT « Y 

* Read configuration file 

if not exists &APPLDR. CONFIG. DAT then clear 
then smsg "q&APPLDR. CONFIG .DAT does not exists. 
10 Application cannot continue.** 

then read line &Q1 **qPress ENTER.** 
then quiet stop all 

* Load records in configuration file into vars 
&NUMPORTS "0 ;* init | of valid ports 
open &APPLDR. CONFIG. DAT as #1 for input 
if (firetcode <> 0) then clear 

then smsg ''qProbleiD opening file &APPLDR. CONFIG. DAT. 
Application cannot continue. •• 

then read line &Q1 '*qPress ENTER.** 
then quiet stop all 

20 

* Read 1st record (outgoing directory) 

read file <1 &XOUTDIR 
if not found then clear 

then smsg '*qlst record in file & APPLDR.CONFlG.DAT must be 
25 outgoing directory name.** 

then read line &Q1 '*qApplication cannot continue. Press 

ENTER." 

then quiet stop all 
&XOUTDIR = &trim(&XOOTDIR) 

if (&substr(&XOUTDIR,&length(&XOUTDIR) ,1) <> *V) then 
30 &XOUTDIR = ••fiXOUTDIRV" 

substitute define &.OUTDIR ^ &XOUTDIR 

* Loop until end of file 

loop READREC * 

read file «1 &RECSTR ;* read a record 

35 if not found then goto CONTl ;* EOF ? 

argstring &RECSTR ;* breaOcout tokens 

parse ... ;* parse using the tilde 



40 



* Make sure we have 6 parameters 

if (&N <> 6) then clear 

then smsg **qlnvalid # of parameters in line 
i&calc(&NUMPORTS +1) of file 6APPLDR.C0NFIG.DAT.** 

then read line &Q1 **qApplication cannot continue. Press 

ENTER." 

then quiet stop all 

* Increment port counter 

&NUMPORTS « &NUMP0RTS 4 1 

* Assign entry name 
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substitute define &.EN&NUMPORTS "&triin(&upper(&l) ) " 

* Assign port # 
global &PORT&NUMPORTS 
&PORT&NUMPORTS = "&triin(&2) " 

* Assign modem speed 
global &SPEED&NUNPORTS 
4SPEED&NUMP0RTS = "&trim(&upper (&3) ) " 

* Assign port type 
global &PTYPE&NUMPORTS 
&PTyP£&NUMPORTS = "&trim(&upper(&4) ) " 

* Assign modem type 
global &MODEM&NUNPORTS 
6M0DEM&NUMP0RTS » "&trim(&upper (&5) ) « 

* Assign modem name/class 
global &HNAME&NUMPORTS 
&MNAME&NUMPORTS = •'&trim(&upper (&6) ) " 

* Hake sure relay's setting match configuration file 

quiet directory query &EN&NUMP0RTS MSPEED &HSPEED TYPE 
&HTYPE COMPORT &HPORT 

6HRC = &retcode 

25 * If entry name does not exist, then build it with appropriate 

options 

if (&HRC = 2) then gosub BUILDENT 
then goto C0NT4 
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* Make sure modem speed, conm port and type of connection are 
correct in Relay's 

* Directory of Computers 

if (&HSPEED <> &SPEED&NUMPORTS) or (&HPORT <> 
&PORT&NUUPORTS) or (AHTYPE <> ••TTY") 

then quiet directory update >*&£N&NUMP0RTS** MSPEED 
&SPEED&NUMPORTS TYPE TTY COMPORT &PORT&NUMPORTS 



-C0NT4 

* Make sure port type, modem type and modem name/class are correct 
in Relay's 

* personal computer options 

40 reset &HTYPE; reset &HM0DEM; reset &HNAME 

quiet directory goption comport &PORT&NUMPORTS &HTYPE 
&HMODEM &HNAME 

if ("&HTYPE" <> "&PTYPE&NUMPORTS") or ("&HMODEM" <> 
*&M0D£M&NUMP0RTS") or (**&HNAME"<> "&MNAME&NUMPORTS") 

then quiet directory soption comport &P0RT&KUMPORTS 
45 &PTYPE&NUMPORTS &MODEM&NUMPORTS "^MNAMEfiNUMPORTS" 

-READREC 
-CONTl 

close #1 
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* Make sure central PC has at least 1 com port 

if (&NUMPORTS < 1) then clear 

then smsg ""(jThere nust be at least 1 con port for 
application to run. Check file"* 
5 then read line &Q1 "q&APPLDR. CONFIG. DAT. Press ENTER." 

then quiet stop all 

« Read telephone/physician file 

if not exists &APPLDR.TEL.DAT then clear 

then read line &Q1 "q&APPL DR. T EL. DAT does not exists. 
^0 Application cannot continue. Press ENTER." 
then quiet stop all 

* Load records in telephone file into vars 

&NUMTEL =0 ;* init « of valid ports 

open &APPLDR.TEL.DAT as #1 for input 
if (firetcode <> 0) then clear 

then smsg "qProblem opening file &APPLDR.TEL.DAT. 
Application cannot continue." 

then read line &Q1 "qPress ENTER." 
then quiet stop all 

20 

* Read all records 

&OLDPHY « 
&NUMPHY = 0 
&1STTIME = Y 
loop READTEL * 

25 read file fl &RECSTR ;* read a record 

if not found then 6NUMPHY = &NUMPHY + 1 
then global &RPT&NDMPHY 

then &RPT&NUMPHY « &PHYCNT ;* store # of 

sessions phy. has 

then global &RPHY&NUNPHY 

then &RPHY&NUMPHY = &OLDPHY ;* store phy. 



30 

initials 
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then global &FIN&NUNPHY 

then &FIN&NUMPHY ^ N ft's complete 

flag for phy. 

then goto CONT2 ;* jump out 

argstring &RECSTR ;* breakout tokens 

parse ... ;* parse using the tilde 

* Make sure we have 2 parameters 
^ if (&N <> 2) then clear 

then smsg "ginvalid < of parameters , in line 
#&calc{&NU>rrEL +1) of file &APPLDR.TEL.DAT." 

then read line &Q1 "qApplication cannot continue. Press 

ENTER." 

then quiet stop all 

* For 1st time through loop, store the physicians id 

if (&1STTIME = Y) then &OLDPHY = &upper(&l) 
then &1STTIME « N 
then &PHYCNT = 0 
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* If physician initial's has changed, then store < of sessions 
remote PC has 

* NOTE: array &RPHYn (physician's initials) and &RPTn (total « of 
sessions per 

5 * renotis PC) are built here 

if {&upper(&l) <> &OLDPHy) then &NUMPHY = &NUMPHY + 1 
then global &RPT&NUNPHY 

then 4RPTfcNUMPHY - 4PHYCNT ;* store « of 

sessions phy* has 

then global &RPHY&NUMPHY 

then fiRraVfiNUMPHY = fiOLDPHY store phv. 

initials *^ ' 

then global &FIN&NUMFHY 

then &FIN&NUMPHy = N ;* ft»s complete 

flag for phy. 

then &PHYCNT - 0 ;* re-init session 

coiinter 

then &OLDPHY = ••&upper(&l) ;* assian ohv 

initials ' 
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&NUMTEL = &NUMTEL +1 ; * increment record counter 

&PHYCNT = &PHYCNT + 1 ;* increment session 

counter for remote 

* Assign physicians initials 
global &PHy&NUMTEL 
&PHy&NUMT£L = **&upper(&l)** 



* Assign telephone < 

global fiTEL&NUMTEL 
&TEL&NUMTEL = "&2" 

-READTEL 
-C0NT2 
30 close #1 

* Check for at least 1 record 

-if (&NUMTEL < 1) then clear 

then smsg "qFile &APPLDRpTEL.DAT must contain at least 1 
record. Application cannot 

then smsg '•qcontinue. Press ENTER," 
then quiet stop all 



* Return control to calling script (normal termination) 
stop 

* Subroutine to build an entry in the directory of computers 
-BUILDENT 

* Build entry name using entry name 'A HOST* as the model 

quiet directory add "&EN&NUMPORTS** "A HOST" 
45 &HRC = &retcode 

* Entry name 'A HOST* not found ? 

if (&HRC = 2) then clear 
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then smsg "qEntry Name 'A HOST» must be created on your 
copy of Relay Gold. To create" 

then smsg "qa new Entry Name, enter the Directory of 
Computers and copy an entry of" 

then read line &Q1 "ctTYPE 'TTY'. Then, name the new Entry 
Name *A HOST". Press ENTER." 
then quiet stop all 

* No room on disk ? 
if (&HRC = 3) then clear 

then read line &Q1 "^o room on disk to create new entry 
nsune. Press ENTER." 

then quiet stop all 

* Update new entry name with proper modem speed, type, comments, 

quiet directory update "&EN&NUMPORTS" HSPEED 
15 &SPEED&NUMPORTS TYPE TTY COMMENTS "PORT i&NUMPORTS FOR SCRIPT" 
COMPORT &PORT&NUMPORTS T£I«EPHONE "" 
return 
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* SCRIPT: SESSOFF.SCR 
* 

* FUNCTION: Performs calls , transfers, hangups etc. for each 
session on the 

* central pc 

on error 

* perform trace if debug on 

if (&DEBU6 = Y) then strace LOG&SESSIONID 

on nomemory smsg "qOut of memory session # &SESSIONID 

global &ASYNCNUM &HSBQ 

* Assign communications session number 

fiASYNCNUM = &1 

* Retrieve communication port # for this session 

directo3:y query &EN&ASYNCNUM comport &HPORT 

* Retrieve modem type for this session 

directory qoption comport &HPORT fiDUMHYl &MODEMNAM 

* If modem type is QX (Nicrocom) , then set special modem variable 
to 

* submit 'AT* instruction to modem 

if (&upper(&MODEMNAM) = QX) then global &SMICMD 

* then &$MICMD = ••\N3\Q3\J0%C3" 

* For super duper QX/4232hs (latest & greatest) 

then &$MICMD = ••%C0%G1%BT12000" 

* Initialize sessions variables 

define &HSTAT&ASYNCNUM = "OFFLINE" 
define &STEMASYNCNUM = »" 
define &XREQ&ASYNCNUM = "" 
define &XFIIJE&ASYNCNUM = 

* Wait for driving session to request an xfer 
-WAITAG 

wait (&XREQ&ASYNCNUM <> "») 

* If request for call, then proceed 

if (&XREQ&ASYNCNUM « "CALL") then goto DOCALL 
else goto WAITAG 

-DOCALL 

&ATTEMPTS = 1 

-DOCALL2 

* Attempt to perform call. If successful execute online script 
SESSON. 

call "&EN&ASYNCNUM" fiSTELfiASYNCNUM ex SESSON 
&HRC - &retcode 

* Error messages based on return code 
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* If line dropped before xfer completed, then send file again 

if (&HRC « 99) then &MESS6 « "Inadvertent line drop before 
file transfer was completed." 

else if (&HRC ■= 0) then &MESSG » "Normal disconnect from 

PC" 

else if (&HRC « 2) then &MESSG « "Insufficient memory for 
the connection." 

else if (&HRC -3) then &MESSG « "Communication port is not 
operational . " 

else if (&HRC ■> 4) then &NESSG - "User pressed ESC while 
dialing, cancelling the call." 

else if (&HRC » 5) then &MESSG = "The modem is not 
responding properly." 

else if (&HRC = 6) then &NESSG -= "No carrier detected on 

line." 

else if (&HRC = 7) then &MESSG = "The other computer is 

busy." 

else if (&HRC = 8) then &MESSG = "Voice detected on 
telephone line." 

else if (&HRC = 9) then &MESSG - "No dial tone on telephone 

line." 

else if (&HRC « 15) then &MESSG = "Entry Name 
*&EN&ASYNCNUM' not in the Directory of Computers." 

else if (&HRC « 98) then &MESSG - "Problem with initial 
connection." 

* Successful file transfer (continue) 

if (&HRC = 0) then goto CONTl 

* Check for fatal codes 

if (&HRC = 2) or {&HRC = 3) or (&HRC = 4) or (&HRC « 15) 

else goto C0NT99 

&MESSG = "Fatal error for Entry Name &EN&ASYNCNUM - port 
unusable." 

* Set flag for file transfer back to OOTSTANDING 

define &STAT&IND&ASYNCNXm = "0" 
&XYZ = &IND&ASyNCNUM 

* If sub-file, then make sure to update status var &SPL 

if (&SPL1&XYZ = &SPL1&XYZ) then 

&HSEQ = &SUbstr(&fext(&XFILE&ASYNCNUM),l,l) 

&HSEQ = &HSEQ.&IND&ASYNCNUM 

substi define &.SPUHSEQ = "&XFIIiEtASYNCNUM,0" 
goto CONTl 

-CONT99 

* Check for non- fatal codes (retry) 

&ATTEMPTS » &ATTENPTS + 1 ;* increment retry counter 



* Over max attempts ? 

if (& ATTEMPTS > 5) then &MESSG » unsuccessful attempts 
for i&STEL&ASYNCNUM phy : fiSPHYSASYNCNUM Entry : &EN& AS YNCNUM" 
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* Set flag for file transfer back to OUTSTANDING 

then define 6STAT&IND&ASyNCNUM = "0" 
then goto CONTl 

* Try again 

else goto D0CALL2 

* Proceed to wait for another instruction from driving session 
-CONTl 

define &XREQ&ASYNCNinc « ;* reset request command 

define &HSTAT&ASYNCNUM - "OFFLINE** set session 

status to OFFLINE 

goto WAITAG 
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* SCRIPT: SESSON.SCR 
* 

* FUNCTION: Performs online duties for conuDunication session 

on error 

* Use relay's compressed protocol (type RC) 

* set protocol relay compress 

* Switch to split screen mode 

* switch relay 

* If Relay's Protocol not established in 60 seconds, assume bad 
line c[uality 

* or problems with modems and return code of 98 

wait 60 (6CSERIAL <> 

if timeout then define &HSTAT&ASYNCNUM = "OFFXFER";then 
hangup 98 

* Use hardware flow control 

* wait 1 

* wait (fisesactive ==1) 

* substi session switch #&calc(&asyncnum + 1) 

* set insmode off ;* turn off insert mode 

* stack "[ESCAPE] [F5] [TAB] [TAB] [TAB] [TAB] [TAB] [TAB]H [enter] " 

* wait 1 

reset fireceive ;* in case any jun)c chars 

* session switch #1 

* If inadvertent disconnection occurs before protocol esteUDlished, 
then 

* provide return code of 98 

on disconnect define &HSTAT&ASYNCNUM = "OFFXFER" ; hangup 98 



* Update status var for session to signify online connection was 
made 

define &HSTAT&ASYNCNUM = "ONXFER" 

* Make sure other PC is in synch with proper protocol and script 
control 

* character* (good security feature) 

&ATTEMPTS = 0 
-SECURITY 

send "Ssend »TEST'»» ;* send string 

wait 4 "TEST" ?* wait for positive 

confirmation 

if not timeout then goto STARTSD ;* if received positive 
confirmation 

&ATTEMPTS = &ATTEMPTS + 1 ;* increment attempts 

counter 

* Max attempts ? 

if (&ATTEMPTS > 4) then define &HSTAT&ASYNCNUM = 
"OFFXFER";then hangup 98 
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else goto SECURITY 

-STARTSD 

* If MAP. DAT exists for sub-file reconstruction, then send it 

if exists &OUTDXR* TEHP\MAP.DAT then sendf 
&OUTDIR . TEMP\MAP . DAT 

then wait until sending 

then send "$recvf MAP. DAT NOBACKUP* 

then wait while sending 

-SENDAG 

* If inadvertent line drop before xfer is complete, then tell 
offline script 

* to try again 

on disconnect define &HSTAT&ASYNCNUN » "OFFXFER" ; hangup 99 



* reset S.STIME 

* Attempt to send file 

wait 0.5 

* If no sub-files, then send file from outgoing dircectory 

&XYZ « &IND&ASyNCNUM 

if (6.SPL1&XYZ » &SPL1&XYZ) then sendfile 
&OUTDIR. &XFILE&ASYNCNUM 

* For sub-files, send file from outgoing\TEMP directory 

else sendfile &OUTDIR.TEMP\&XFILE&ASYNCNUM 
wait until sending 

send "$recvf &XFILE&ASYNCNUM NOBACKOP" 
&BEGIN &TIMETH 

* Wait until entire file has been transferred 

wait while sending 
&END = &TIMETH 

* Update status var for record associated with file that just got 
transferred 

* successfully. (&IKD&ASYHCNUM provides index to array &STAT for 
proper 

* record to update) 

* If no sub-files for master file, then update status var 

if (&.SPL1&XYZ = &SPL1&XYZ) then define &STAT&IND&ASYNCmJM 

= »S" 

* otherwise for sub-files, update status var 

else &HSEQ = &substr(&fext(&XFILB&ASYNCNUM) , 1, 1) 
else &HSEQ » &HSEQ.&IND&ASYNCNUM 

else substi define &.SPL&HSEQ = "&XFILE&ASYNCNUM,S" 

* Also, store xfer time, byte size of file, time transfer completed 
and com 

* port used 
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* Develop xfer time in fonoat TOTAL SECONDS • HUNDRETHS OF SECONDS 

&HBEG « &seconds(&substr(&BEGIN,l,8))*100 
&HEND = &seconds(&substr(&END,l,8))*100 
&THBEG - &substr(&BBGIN,10,2) 
&THEND = &substr(&END,10,2) 
&HBEG &HBEG+&THBEG 
&HEND &H£NDf &THEND 
&DIF » &HEND-&HBEG 

if (&length(&DIF) <= 2) then &DIF » "•&right(&DIF,2,0) " 
else &DIF 
» &substr ( iDlF, 1 , &calc (& length ( &DIF) -2 ) ) • fisubstr (&DIF , &calc ( filenqt 
h(&DIF)-l))" 

* If no sub-files, update status info 
if (&.SPL1&XYZ =^ &SPL1&XYZ) then substi define &.FTIME&XYZ 

= ''&DXF*&fsize(&0UTDIR.&XFILE&ASYNCN0M)-&time-&COMP0RT" 

* Othervise for siib-files, update status info 
else substi define &.FTM&HSEQ » 

"&DIF-&f size(&OUTDIR.TEMP\&XFILE&ASYNCNUM) -fitime-fi COMPORT" 

* Tell driving session file has been transferred and line is idle 

define SHSTATiASYNCNUM « "ONLINE" 

* If inadvertent line drop occurs while we are waiting for an 
25 instruction 

* then update status var that we are hanging up 

on disconnect define &HSTAT&ASYNCNUN "HANGUP" ; hangup 0 
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* Wait for driving session to either request another xfer for this 
^ physician or 

* to hangup (no more files pending for this physician) 
-WAITAG 
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* if debug on wait 1 second so trace doesn't get large 

if (&DEBOG - Y) then wait 1 

substitute if (&HSTAT&ASYNCNUM = "ONLINE") then goto WAITAG 

* If another file to send to same physician, then start xfer 

substitute if (fiHSTATfiASYNCNUM = "ONXFER") then goto SENDAG 

* Disable line drop monitor 

on disconnect 

* Tel 1 remote PC to hangup with a return code of 66 ( nonoa 1 
termination) 

send "$HANGUP 66" 
wait until idle 

* Update status flag 



define &HSTAT&ASYNCNUM « "HANGUP" 

55 * Otherwise, hangup with OK return code 

hangup 0 
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* SCRIPT: SESSON.SCR 

* FUNCTION: Performs online duties for communication session 

on error 

* Use relay's compressed protocol (type RC) 

* set protocol relay compress 



* Switch to split screen mode 

* switch relay 



* If Relay's Protocol not established in 60 seconds, assume bad 
line quality 

* or problems with modems and return code of 98 

wait 60 (&CSERIAI. <> 
15 if timeout then define &HSTAT&ASYNCNDH » *'OPFXFER'*;then 

hangup 98 

* Use hardware flow control 

* wait 1 

* wait (&sesactive - 1) 

20 * sTibsti session switch # Scale (&asyncnum +1) 

* set insmode off turn off insert mode 

* stack "[ESCAPE] [FS] [TAB] [TAB] [TAB] [TAB] [TAB] [ TAB] H [enter]" 



* wait 1 

reset &receive ;* in case any junlc chars 

* session switch #1 

* If inadvertent disconnection occurs before protocol established, 
then 

* provide return code of 98 

on disconnect define &HSTAT&ASYNCNUM = "OFFXFER" ; hangup 98 

* Update status var for session to signify online connection was 
made 

define &HSTAT&ASYNCNUM = "ONXPER" 



* Make sure other PC is in synch with proper protocol and script 
control 

* character, (good security feature) 

&ATTEMPTS = 0 
-SECURITY 

40 send "$send »TEST»" ?* send string 

wait 4 "TEST" ;* wait for positive 

confirmation 

if not timeout then goto STARTSD ;* if received positive 
confirmation 

&ATTEMPTS = &ATTEMPTS + 1 ;* increment attempts 

45 ' counter 

* Max attempts ? 

if {^ATTEMPTS > 4) then define &HSTAT&ASYNCNUM = 
"OFFXFER";then hangup 98 
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else goto SECURITY 

-STARTSD 

* If MAP. DAT exists for sub-file reconstruction, then send it 

if exists 40UTDIR.TEMP\MAP.DAT then sendf 
&OUTDIR . TEMP\MAP . DAT 

then wait until sending 

then send ••$recvf MAP » DAT NOBACKUP" 

then wait while sending 

-SENDAG 

* If inadvertent line drop before xfer is complete, then tell 
offline script 

* to try again 

on disconnect define &HSTAT&ASYNCNUM = ••OFPXPBR" ;h2mgup 99 



* reset &STIME 

* Attempt to send file 

wait 0,5 

* If no sub-files, then send file from outgoing dircectory 

&XYZ » &IND&ASYNCNUM 

if (&.SPIil&XYZ - &SPL1&XYZ) then sendf ile 
&OUTDIR. &XFILE&ASYNCNUM 

* For sub-files, send file from outgo ing\TEMP directory 

else sendf ile &OUTDIR.TEMP\&XFILE&ASYNCNUM 
wait until sending 

send "$recvf fiXFILEfiASYNCNUM NOBACKUP" 
StBEGIN = &TIMETH 

* Wait until entire file has been transferred 

wait while sending 
&END = &TIMETH 

* Update status var for record associated with file that just got 
transferred 

* successfully. (&IND&ASYNCNUM provides index to array &STAT for 
proper 

* record to update) 

* If no sub-files for master file, then update status var 

if (&.SPL1&XYZ = &SPL1&XYZ) then define &STAT&IND&ASYNCNUM 

= "S" 

* otherwise for sub-files, update status var 

else &HSEQ = &substr(&fext(&XFIIJE&ASYNCNUM),l,l) 
else &HSEQ = &HSEQ.&IND&ASYNCNUM 

else substi define &.SPL&HSEQ « **&XFILE&ASYNCNUM,S'* 

* Also, store xfer time, byte size of file, time transfer completed 
and com 

* port used 
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* Develop xfer time in format TOTAL SECONDS. HUNDRETHS OF SECONDS 

&HBEG >= &seconds(&silbstr(&B£GIN,l,8) )*100 
&HEND = &seconds(&substr(&END,l,8))*100 
&THBE6 = &siibstr(&BEGIN,10,2) 
&THEND « &SUbstr(&END,X0,2) 
&HBE6 = &HBEG+&THBEG 
&HEND = fiHEND^&THEND 
&DIF = &HEND-&HBEG 

if (&length(&DIF) <= 2) then &DIF « bright (&DIF, 2, 0) * 

el se &DIF 
**&stibstr ( &DIF, 1 , &calc ( filength ( ftDIF) -2 ) ) • Asubstr ( &DXF, &calc ( &lengt 
h{&DIF)-l))" 

* If no svib-files, update status info 
if (&.SPL1&XYZ * &SPL1&XYZ) then substi define &.FTIME&XYZ 

= "fiDIF-fif size (&OUTDIR. SXFILE&ASYNCNUM) -&tiine-&COMPORT" 

* Otherwise for sub-files, update status info 
else substi define &.FTM&HSEQ 

»&DIF-&f size ( &OOTDIR . TEMP\&XFILE&ASYNCNDM) -fitine-fiCOMPORT" 

* Tell driving session file has been transferred and line is idle 

define &HSTAT&ASYNCNUM = "ONLINE" 

25 * If inadvertent line drop occurs while we are waiting for an 
instruction 

* then update status var that we are hanging up 

on disconnect define 6HSTAT&ASYNCNUM - "HANGUP" ; hangup 0 

30 * Wait for driving session to either request another xfer for this 
physician or 

* to hangup (no more files pending for this physician) 
-WAITAG 
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* if debug on wait 1 second so trace doesn't get large 

if (&DEBUG =^ Y) then wait 1 

substitute if (&HSTAT&ASYNCNUN = "ONLINE") then goto WAITAG 

* If another file to send to same physician, then start xfer 

substitute if ( &HSTAT&ASYNCNUM = "ONXFER") then goto SENDAG 

* Disable line drop monitor 

on disconnect 

* Tell remote PC to hangup with a return code of 66 (normal 
termination) 

send "$HANGUP 66" 
wait until idle 

* Update status flag 



define &HSTAT&ASyNCNUM « "HANGUP" 

* Otherwise, hangup with OK return code 
hangup 0 
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* STARTSES.SCR 
* 

* FUNCTION: Invokes relay sessions 

* Allow script to perform error processing 
on error 

on attnkey FIO &GETOUT = Y 

* If RAM exceeded, then provide error message 
on nomemory smsg "gOUT OF MEMORY SESSION** ;STRACE OFF 

* Specifies the session name suffix (ASYNCl) etc. 

&ASYNCNUM = 1 

* Iterate # of sessions specified 

75 loop ASYNC while (&ASYNCNUM &NUMPORTS) 

* Call subroutine to invoke a new async session 

gosub DOASYNC 

* Increment for next async session 
20 &ASYNCNUM » &ASYNCNUM + 1 

-ASYNC 

* Terminate script (normal termination) 

quiet stop 0 

* This subroutine invokes an async session 
25 -DOASYNC 

* Invoke a new async session and execute script S£SSOFF«SCR. 

* Assign a session name with ASYNC&ASYNCNUM format where &ASYNCNUM 
is the 

* current session being invoked. 

session start 
SESSOFF/X: "&ASYNCNUM"/SD: ••&APPU>R"/NAME:"ASYNC&ASYNCNUM"/SL:4 

* Wait 20 seconds for the session to be established 
^ wait 20 (&sescount » &calc(&ASYNCNUM + 1)) 

* If session was not established successfully, then jump to error 
routine . 

if timeout then goto NG 

40 * Provide check to make sure session was completely esteddlished 
before proceeding. 

&XCNT = 1 

loop -CANWAITl * 

session status #2 &NX &STX 
if (&rc « 0) then goto CANSTOPl 
<5 wait 1;&XCNT = &XCNT + 1 

if (&XCNT > 45) then goto NG 

-CANWAITl 



* Provide error message if session was not estetblished. 
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-NG 

clear 

open &APPLDR.LOG as #1 for append 

write file #1 "fiDATE &TIME Not able to bring up Session 
#&ASyNCNUM." 

read line &Q1 "gNot ahle to bring up Session #&ASYNCNUM. 
Press ESCAPE." 

quiet stop 1 ;* return error code 

-CANSTOPl 

* Return to caller 
return 
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* SCRIPT: CONFIG. SCR 

* FUNCTION: Front-end interface to CGNFIG.DAT 

on error 
clear 

* Get script application drive 

&APPLDR - &option(SDRIVE) 

* Make sure path is suffixed with a bactelash 

if (&substr(&APPLDR, 61ength(&APPLDR), 1) <> «\*) then 
&APPLDR « "fcAPPLDRX" 

&MESSAGE - 
&PATHSPEC = 

&SPEEDCHK « "SO, 75, 110, 135, 150, 300, 450, €00, 1200, 
1800, 2000, 2400, 3600, 4800, 7200, 9600, 14400, 19200, 38400," 

&PORTCHK = "COMl, COM2, CC»f3, COM4, C0M5, C0M6, C0M7, C0M8, 
HOSTS, IBMSHARE, NONE, IRMA, IBH, FORTE, IBMLDFT, IBMSDFT, SPECIAL, 
NPCSHARE, NACSHARE, USERl, USER2, COM3 PC, C0H4PC, GATEWAY," 

&MODCHK = "T, CD, 9, H, S, HV, PC, AX, QX, MT, C, P, V, W, 
X, R, B, BI, E, US, O, I, M, A, D, HC," 

* If configuration file exists, then continue 

if exists &APPLDR. CONFIG « DAT then goto CONTl 

* Otherwise, init all vars in p€mel to blanlcs 

gosub INITBL 1 
goto C0NT3 

-CONTl 

* Open configuration file 

open &APPLDR. CONFIG* DAT as «1 for input 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "gCould not open file 
&APPLDR* CONFIG. DAT. Process aborted. Press ENTER.** 
then stop 

* loop to read all records 

&RECCNT = 0 

&ELEM = 1 

loop READREC * 

read file fl &RECSTR ;* read a record 

if not found then goto C0NT2 ;* if EOF then jiimp out 

&RECCNT = &RECCNT + 1 ;* increment record counter 

* If 1st record being processed, then assign to path-specification 

if (&RECCNT = 1) then &PATHSPEC = &tril&(&RECSTR) 
then goto READREC 

argstring &RECSTR ;* break-out tokens 

parse ;* use tilde as delimeter 
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* Check for illegal # of tokens 

if (&N <> 6) then read line &Q1 "qXllegal « of tokens in 
record &ELEM - Record ignored. Press ENTER." 

then 

&ENT&ELEM=" " ; &NUM&ELEM=" ; &SPEED&ELEM«" " ; &PTYPE&ELEM"" " ; WTTYPEiEL 
EM=" " ; &NAMEfiEr£M= " " 



* Otherwise, assign token from record to panel vars 
else &ENT&£LEM==&tri]B(&l) 
else &NUM&EIiEM»&trim(&2) 
else &SPEED&ELEM-&tri]D(&3) 
else &PTyPE&ELEM»&triin(&4) 
else &)fTyPE&ELEM=&triin(&5) 
else &NAME&ELEM»&triBi(&6) 
&ELEM = &ELEN + 1 

-READREC 



-C0NT2 

* Clear all remaining panel vars 
gosub INITBL &ELEH 
close #1 



-C0NT3 

display panel CONFIG 

-CONT4 

display input &RESPONSE 

if (&RESPONSE <> ESCAPE) and (&RESPONSE <> ENTER) and 
(&RESPONSE <> FIO) 

then smsg "qlnvalid response 
then goto C0NT4 

if (&RESPONSE = ESCAPE) then smsg "Modifications not saved 
. . . Exiting to DOS . " 
then wait 3 
then stop 

if (&RESPONSE = FIG) then gosub HELPl 
then goto C0NT4 



gosiib SAVEDATA 
&hrc = &RC 

if (&hrc = 1) then goto CONT4 



* Subroutine to init vars in panel 
-INITBL 

&PARM1 ^ &1 
: &CNT = &1 

loop INITA While {&CNT <= 8) 

&ENT&CNT="" ;&NUM&CNT="" ?&SPEED&CNT="» ;&PTYPEIiCNT="" ;&MTYPE&CNT^"" 
;&NAME&CNT="" 

&CNT = &CNT + 1 
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-INITA 

return 

* Subroutine to save panel data 
5 -SAVEDATA 

* Make sure receive path is valid 

&PATHSPEC » &trim(&PATHSPEC) 

if (&substr(&PATHSPEC, (length ( &PATHSPEC) , 1) <> *\') then 
&HSPEC = »&PATHSPEC\*.*" 
'° else &HSPEC » "&PATHSPEC**** 

if (&fvalid(&HSPEC) » YES) then goto CONT5 
smsg **qRECEIVE PATH invalid." 
display cursor 1 
return 1 

75 

* Validate each entry 
-C0NT5 

&CNT = 1 

loop VALIDATE 8 

&ENT&CNT = &triin(&ENT&CNT) 

20 

* If entry name is null, then get next record 

if (&ENT&CNT = "») then goto INCR 

* Validate port # 

6NUM&CNT ^ &triiB(&NUM&CNT) 
25 if (&NUM&CNT > 0) and (&NUM&CNT < 16) then goto CONT6 

if (&NUM&CNT = "ANY") or (&NUM&CNT = "SHR") then goto 

C0NT6 

smsg "qlnvalid PORT # for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+3) 
return 1 

30 

-C0NT6 

* Validate modem speed 

fiSPEEDfiCNT - 6trim(&SPEED&CNT) 

if (&instr("&SPEEDCHK","&SPEED&CNT,") > 0) then goto 

35 C0NT7 

smsg "qlnvalid MODEM SPEED for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CHT -1*6+4) 
return 1 

-C0NT7 

40 * Validate Port Type 

fcPTYPEfiiCNT = &trim(&PTYPE&CNT) 

if (&instr("4PORTCHK","&PTYPE&CNT,") > 0) then goto C0NT8 
smsg "qlnvalid PORT TYPE for Entry Name ,&ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+5) 
return 1 

45 ' . " 

-C0NT8 

* Validate Modem Type 

&MTYPE&CNT = &trim(&MTYPE&CNT) 

if (&instr("&MODCHK","&MTYPE&CNT,") > 0) then goto C0NT9 
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smsg "qlnvalid MODEM TYPE for Entry Name fiENTfiCNT" 
svibstitute display cursor &calc(&CNT -1*6 + 6) 
return 1 

-C0NT9 

* Validate Modem Name/Class 

&NAME&CNT « &tria(&NAME&CNT) 

if ("fcPTyPE&CNT" « "HOSTS") then goto CHECKHST 
else goto INCR 

* Since PORT TYPE is HOSTS, make sure MODEM NAME/CXASS has 3 tolcens 
separted by 

* a blank 
-CHECKHST 

if (&NAME&CNT « then &FIAGNG - Y 

else &FIAGNG « N 

else argstring &NAME&CNT 

else parse " * - • . 

if (&N <> 3) or (&FIAGNG = Y) then smsg "qlnvalid format 
for MODEM NAME/CLASS for Entry Name &ENT&CNT" 

then substitute display cursor &calc(&CNT -1*6+7) 
then return 1 

-CONTIO 
-INCR 

&CNT = &CNT + 1 

-VALIDATE 

* All fields were valid. Write records to configuration file. 

open & APPLDR.CONFIG.DAT as «1 for output 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "qCould not open file 
&APPLDR. CONFIG. DAT. Process aborted. Press ENTER." 
then stop 

write file #1 "&PATHSPEC" 

&CNT = 1 
loop KRITEl 8 

* If Entry Name is blank, then don't write this record 

if (&ENT&CNT = "») then goto NEXTREC 

write file #1 
" iENT&CNT- &NUM&CNT- &SPBED&CNT-&PTYPE&CNT- &MTYPE&CNT-&NAME&CNT" 
-NEXTREC 

&CNT = &CNT + 1 

-WRITEl 

close #1 

smsg **qUpdate to configuration file complete..." 
wait 3 

stop . > 

* Help routine 
-HELPl 
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* Make sure user's cursor is on an input field 

if (&substr(&SFIELD,l,l) = "T") or (fisubstr (&S FIELD, 1, 1) 
= "O") or (&substr(&SFIELD,l,i) « "O") 

then smsg "^When selecting help, make sure cursor is on an 
input field." 

then return 

&FLD = &substr(&SFIEU>,2) ;* get input field number 

display save ;* save video 

* Help for receive file 

if (&FIJ) = 1) then display panel CONFIGHl 

then goto USERINP 

if ((&FLD \ 6) = 0) then tFLD - 5 

else &FLD » &FLD \ 6 - 1 

* Help for entry name 

if (&FI1D = "1") then display panel CX>NFIGH2 
then goto USERINP 

* Help for port number 

if (&FLD = "a") then display panel C0NFIGH3 
then goto USERINP 

* Help for modem speed 

if (&FLD = "3") then display panel C0NFIGH4 
then goto USERINP 

* Help for port type 

if (&FLD <> "4") then goto CONTll 

-C0NT12 

display panel CONFIGH5 

-CONT13 

display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if (^RESPONSE <> PGDN) then goto CONT13 
display panel C0NFIGH6 

-C0NT14 

display input &RESPONSE 

if (^RESPONSE = ESCAPE) then display restore 
then return 

if (&RESPONSE <> PGUP) then goto CONT14 
goto C0NT12 

* Help for modem type 
-CONTll 

if (&FID <> »5") then goto C0NT15 

-C0NT16 

display panel CONFIGH7 

-C0NT17 

display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 
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if (&RESPONSE <> PGDN) then goto C0NT17 
display panel C0NFIGH8 

-C0NT18 

display input 
if (&RESPONSE 
then return 
if (&RESPONSE 
goto CONT16 

-C0NT15 

* Help for Dodem name or class 

if (&FI1D <> "O**) then goto USERINP 

-C0NT19 

display panel C0NFIGH9 

-CONT20 

display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if (&RESPONSE <> PGDN) then goto CONT20 
display panel CONFIGHA 

-C0NT21 

display input (RESPONSE 

if ((RESPONSE = ESCAPE) then display restore 
then return 

if ((RESPONSE <> PGUP) then goto C0NT21 
goto CONT19 

* Wait until user presses escape 
-USERINP 

display input (RESPONSE 

if ((RESPONSE <> ESCAPE) then goto USERINP 
else display restore 
else return 



(RESPONSE 

= ESCAPE) then display restore 
0 PGUP) then goto C0NT18 
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* Script: REMl.SCR 
* 

* Function: Main driving script for Remote PC 

5 

* Globalize vars 

on error 

* Debug on ? 

if (&1 = "DEBUG") then define &DEBUG = "Y" 
70 then strace newlog 

else define &DEBUG « "H" 

* Provide nechnism to allow user to abort via function key FIO 

global &6ET0UT 
&GETOUT = N 
76 ON ATTNKEY PIO fiGETOOT - Y 

clear 

snsg "qlnitialization in progress one moment please." 
global &APPIiDR ;* application drive 

global &NUMPORTS ;* # of avail, ports on PC 

20 

* Get script application drive 

&APPLDR = &option(SDRIV£) 

* Make sure path is suffixed with a backslash 
if (&svibstr(&APPIiDR,&length(&APPLDR) ,1) <> •\^) then 

&APPLDR = "&APPLDR\" 

* Read configuration file into RAM vars 
ex REM2 

* Check if user pressed FIO to abort 
if (&GET0UT = Y) then goto ALLD0NE2 

* Start multiple sessions 
ex REM3 

&HRC = &retcode 

* If any failures on sessions, then stop script and exit relay 

if (&HRC = 1) then quiet stop all 
smsg "gSession start successful ..." 

* Erase all files in inbound directory with spec. FILE*.* €md 
^ MAP. DAT 

quiet erase &INDIR.FILE*.* 
quiet erase &INDIR.MAP.DAT 
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* Wait for central PC to call and transfer all files 

&CNT =1 
loop INFIN * 

* Check if user pressed FIO to abort 

if (&GETOUT » Y) then goto ALUX)NE2 
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* Check if any ports have received confirmation from the central 
PC that 

* all pending files have been transferred or are in the prooress 
of being *^ ^ 

* transferred 

&CHANGE - N 

loop CHECKST &NUHPORTS 

* If debug on, wait 2 seconds so trace doesn't get larae 

if (&DEBUG « -Y") then wait 2 

* Check if user pressed FIO to abort 

if (&GETOUT « Y) then goto ALLDONE2 

if (&HSTAT&CNT <> fiOLDfiCNT) then &OU)&CNT = &HSTAT4CNT 
then &CHANGE » Y 

if (&HSTAT&CNT = "DONE") then gosub SHGWDISP 
then goto CHECKAG 
&CNT = iCNT + 1 

if (&CHANGE = Y) then gosub SHGWDISP 
&CNT = 1 



-CHECKST 



-INFIN 

* Wait until all online activity has ended 
-CHECKAG 

&CNT = 1 
loop INFIN2 * 

loop CHECKST2 iNUMPORTS 

* If debug on, wait 2 seconds so trace doesn't get large 
if (&DEBUG « "Y") then wait 2 

* Check if user pressed FIO to abort 

if (&GETOUT = Y) then goto ALLDONE2 

* If any online activity detected, then continue checking activity 

if (&HSTAT&CNT = "ONLINE") then &CNT =1 
^ then goto -INFIN2 

&CNT - fiCNT + 1 

-CHECKST2 

goto CONT5 

-INFIN2 



-C0NT5 

* Check if we already waited an additional 70 seconds to make sure 
all 

* online activity was done 

if (&DONEFLAG = Y) then goto ALLDONE 

* Set flag 
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&DONEFIAG - Y 

* Wait 70 seconds in case a line drop occurred and a re-dial was 
in progress 

* wait 70 
goto CHECKAG 



-ALLDONE 

clear 

s m s g 

"q* *M 

snsg "q " 

smsg "q Online file transfer's coiiq;>lete** 
sittsg "q •» 

s n 8 q 

"q* *" 

smsg "q 
smsg "q 
smsg "q " 

* Join sub-files into master files (if necessary) 

gosub JOIN 

-AIiID0NE2 

* If old online profile existed before application ran, then 
restore old profile 

* Otherwise erase online profile from relay's directory 

if exists &RUNREL. RELAY. HLD then copyfile &RUNREL. RELAY .Hli? 
&RU1IREL . RELAY . ONP , 

then erase &RUNREL. RELAY. HLD 
else &RUNREL. RELAY. ONP 

* 

* Cancel all sessions 
* 

&KILLNUM = 2 ;* init 1st session « to kill 

* Loop session #2 to last session 

loop KILLSESS while (&KILIirUM <= &calc(&NUMPORTS + 1)) 

* Request to kill session 

gosub cancel fiKILunm 
&HRC = &retcode 

&KILLmm « &KILLNUM + 1 

-KILLSESS 

smsg "qApplication stopped ... Relay Gold has exited 

memory." 

quiet stop all ;* thats it folks 1! 

-CANCEL quiet session stop &1 
if (&RO0) return &RC 
smsg "q " 
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snsg "QCancelling session f&l. Please Stand by," 

global &CANCEL 

&CANCEL = "NO" 

on timer 5 &CANCEL = "YES" 

loop -canwait while (&CANCEL^"NO") 
gfulet session status &l 
-CANWAIT if (&RO0) goto -CANSTOP 

-CANSTOP on timer 
return 0 



-SHOWDISP 

clear 
&X = 1 

smsg "q Communication Status" 

smsg "q " 

smsg 

"q* : • . . 

— — *»t 

loop CHECKST &NUMPORTS 

smsg "qSESSION #&X: &HSTAT&X" 
&X = &X + 1 

-CHECKST 

smsg 

"q* — 

*« 

return 

* — 1 « . . . . 

* 

* Subroutine to join multiple files into one file 

* — « ^ 

* 

-JOIN 



* Load MAP. DAT into RAN 

if not exists &INDIR*MAP*DAT then return 

smsg "qJoining sub-files into master files • • , One moment 

please. " 

open &INDIR.NAP.DAT as #1 for input 
&HRC &rc 

if (&HRC <> 0) then smsg "qCould not open MAP .DAT Join 
aborted . " 

then goto DONEJOIN 
&CNT = 1 
loop READIN * 

read file #1 &RECSTR 

if not found then goto DONEMAP 

&MAP&CNT - &RECSTR 

&CNT = &CNT + 1 

-READIN 
-DONEMAP 

&TOTMAP « &CNT - 1 
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close #1 

* Take snapshot of all temp files 

dosdir &XND1R.FILE*. * fiENTRYCT &FN 4FEXT 

if (fiENTRYCT = 0) then smsg "qTemp files not found Join 

aborted • 

then goto DONEJOIN 

* Sort array by filenames 

sortarray &FN &ENTRYCT ORDER &FEXT 
&CNT = 1 

* loop for f of temp files 

loop JOINl while (&CNT <« SENTRYCT) 

* Make sure all temp files are found to construct original file 

&PTR = &CNT ;* save pointer of 

1st record 

&OLDFN « &FN&CNT ;* store filename 

&TEMPCNT =1 ;* init # of TEMP 

files found 

&MAXTEMP = &substr(&PEXT&CNT,2,l) ;* get total # of 

temp files 

loop COUNTEMP * 
&CNT = &CNT + 1 

* If temp filename hasn't changed, then increment temp file counter 

if (&OLDFN - &FN&CNT) then &TEMPCNT = &TEMPCNT + 1 

* If temp file counter matches the correct f of temp files for this 
original 

* file 

if (&TEMPCNT &MAXTEMP) then goto JOIN2 

* If filenames changed, then ve didn't receive all temp files 
(don't join) 

if (&OLDFN <> &PN&CNT) then goto JOINl 

-COUNTEMP 
-JOIN2 

* Join files 

* Get original filename 

&XT = 1 

loop FINDORIG &TOTMAP 

i f 

( & instr ( & substr ( &MAP&XT , &ca Ic ( & instr ( iMAP&XT ,",••) +1 )) , &OLDFN) >0) 
then goto GOTMATCH 

&XT » &XT + 1 

-FINDORIG 
-GOTMATCH 

* Assign original filename 

&NEHNAME ^ 
& substr (&MAP& XT, 1, ficalc (& instr (&MAP&XT, ",")-!)) 
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* Open destination file 

open &INDIR.&NEWNANE as #1 for output stream binary 
&HRC = &rc 

if (&HRC <> 0) then smsg "qCould not open file 
&INDIR.&NEWNAME. Join aborted." 
then goto JOINl 

* Write temp files to destination file 

&OCNT = &PTR 

loop WRITEOOT &MAXTENP 

open &IKDIR.&FN&OCNT...&FEXT&OCNT as «2 for input 
stream binary 

iHRC = &rc 

if (&HRC <> 0) then smsg "qCould not open file 
&INDIR. &FN&OCNT. • .SFEXT&OCNT. Join aborted." 

then smsg "qFile &INDIR.&NEWNANE could not be joined." 
then goto JOINl 

loop WRITE2 * 

read file #2 &RECSTR length 256 
if not found then goto D0NE3 
vrite file #1 6RECSTR 

-WRITE2 
-D0NE3 

close #2 

&OCNT = &OCNT + 1 

-WRITEOOT 

close #1 

-JOINl 
-DONEJOIN 

* Erase any sub-files and mapping file 

quiet erase &INDIR.FILE*.* 
quiet erase & INDIR.MAP.DAT 
return 
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* SCRIPT: REM2.SCR 

* FUNCTION: Head configuration and telephone files into RAM vars 
on error 

on attnkey FlO &GETOUT - Y 

* Read configuration file 
if not exists & APPLDR.CONFIG.DAT then clear 
then smsg "g&APPLDR* CONFIG . DAT does not exists . 

Application cannot continue.** 

then read line &Q1 *'gPress ENTER.** 
then quiet stop all 

75 * Load records in configuration file into vars 

&NUMPORTS = 0 ?♦ init # of valid ports 

open &APPLra. CONFIG. DAT as #1 for input 
if (&retcode <> 0) then clear 

then smsg **qProblein opening file &APPI1DR. CONFIG .DAT. 
20 Application cannot continue. 

then read line &Q1 "qPress ENTER. 
then quiet stop all 

* Read 1st record (incoming directory) 

read file #1 &XINDIR 
^ if not found then clear 

then smsg "qlst record in file &APPLDR. CONFIG. DAT must be 
incoming directory nauae.** 

then read line &Q1 **qApplication cannot continue. Press 

ENTER.** 

then quiet stop all 
&XINDIR = &trim(&XINDIR) 
if (&substr(&XINDIR,&length(&XINDIR),l) <> 'X*) then 
&XINDIR = ••&XINDIR\** 

* Make sure incoming directory exists 
j5 quiet mkdir &XINDIR 

substitute define &.INDIR = &XINDIR 

* Loop until end of file 

loop READREC * 

read file #1 &RECSTR ;* read a record 

40 if not found then goto CONTl ;* EOF ? 

argstring &RECSTR ;* breakout tokens 

parse ... ;* parse using the tilde 

^ * Make sure we have 6 parameters 
if (&N <> 6) then clear 

then smsg **qlnvalid # of parameters in line 
#&calc(&NUMPORTS +1) of file &APPLDR. CONFIG.DAT. ** 

50 



30 



55 



69 



10 



15 



35 



40 



EP 0 512 174 A1 



then read line &Q1 "qApplication cannot continue. Press 

ENTER." 

then quiet stop all 

* Increment port coiinter 

&NUMPORTS « &NUMPORTS + 1 

* Assign entry name 

substitute define &.EN&NOMPORTS « **&trim(&upper(&l) ) " 

* Assign port # 

global &PORT&NUMPORTS 
&PORT&NUMPORTS = "&trilB(fc2)" 

* Assign modein speed 

global &SPEED&NUMPORTS 
&SPEED&mmPORTS = ''&tri]D(&upper(&3))" 



* Assign port type 

global aPTyPE&NUMPORTS 
20 fiPTYPEfiNUMPGRTS = '*6tri]&(&upper(&4) ) •* 

* Assign modem type 

global &H0DEH&NUMP0RTS 
&HODEM&NUMPORTS **&trim(&upper (&5) ) " 

25 * Assign modem nsuae/class 

global &MNAME&NUMPORTS 
&MNAME&mmP0RTS ^ **&trim(&upper (&6) ) " 

* Make sure relay's setting match configuration file 

quiet directory query &EN&NUMPORTS MSPEED &HSPEED TYPE 
30 AHTYPE COMPORT &HP0RT 

&HRC = (retcode 

* If entry, name does not exist, then build it with appropriate 
options 

if (&HRC = 2) then gosub BUIU>ENT 
then goto CONT4 



* Make sure modem speed, comm port and type of connection are 
correct in Relay's 

* Directory of Computers 
if (&HSPEED <> &SPEED&NUMPORTS) or (&HP0RT <> 

&PORT&NUMPORTS) or (&HTYPE <> "RELAY") 

then quiet directory update "AENfiNUMPORTS" MSPEED 
&SPEED&NUMPORTS TYPE RELAY COMPORT &P0RT&NUMP0RTS 

-C0NT4 

45 * Make sure port type, modem type and modem name/class are correct 

in Relay's 

* personal computer options 

reset &HTYPE; reset &HMODEM; reset &HNAME 
quiet directory qoption comport &PORT&NUMPORTS &HTYPE 
&HMODEM &HNAME 
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if ("fiHTYPE" <> "&PTYPE&NUMPORTS") or ("&HMODEM" <> 
"fcHODEMANUMPORTS") or (••&HNAME"<> "SMNAMEfiNUBlPORTS") 

then quiet directory soption comport &PORT&NUMPOPTS 
&PTyPE&NUMPORTS &M0DEM&NUMP0RTS "&MNAME&NUMPORTS" 

-READREC 
-CONTl 

close #1 

* Hetke sure remote PC has at least 1 com port 

if (&NDMPORTS < 1) then clear 

then smsg **qThere must be at least 1 com port for 
application to run. Check file** 

then read line &Q1 "q&APPLDR. CONFIG .DAT. Press ENTER.** 
then quiet stop all 

* Get directory relay gold is running in 

global &RUNREL 
&RUNREL » &RDRXVE 

if (&substr(&RUNREL,&length(&RDNREL) ,1) <> 'X') then 
&RUNREL = "iRUNRELX" 

* Copy application online profile to relay*s directory 

if exists &RUNREL. RELAY. ONP then copyf ile &RUNREL. RELAY *ONP 
&RUNREL. RELAY . HLD 

then copyf ile &APPLDR* RELAY .CNP &RUNREL. RELAY. ONP 
else copyfile &APPLDR. RELAY .ONP &RUNREL. RELAY. ONP 

* Return control to calling script (normal termination) 

quiet stop 

* Subroutine to build an entry in the directory of computers 
-BUILDENT 

* Build entry name using entry name 'A PC' as the model 

quiet directory add "4EN&NUMPORTS" "A PC" 
&HRC = &retcode 

* Entry name »A PC' not found ? 

if (&HRC = 2) then clear 

then smsg "qEntry Name 'A PC must be created on your copy 
of Relay Gold. To create" 

then smsg "qa new Entry Name, enter the Directory of 
Computers and copy an entry of" 

then read line &Q1 "qTYPE 'PC'. Then, name the new Entry 
Name 'A PC». Press ENTER." 

then quiet stop all 

* No room on disk ? 

if (&HRC = 3) then clear 

then read line &Q1 "qNo room on disk to create new entry 
name. Press ENTER." 

then quiet stop all 



* Update new entry name with proper modem speed, type, comments, 

quiet directory update "iEN&NUMPORTS" MSPEED 
&SPEED&NUMPORTS TYPE RELAY COMMENTS "PORT #&NUMPORTS FOR SCRIPT" 
COMPORT &PORT&NUMPORTS TELEPHONE "" 

return 

A2 
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* REM3.SCR 
* 

* FUNCTION: Invokes relay sessions 

* Allow script to perform error processing 

on error 

on attnkey FIO &GETOUT » Y 

* If RAM exceeded, then provide error message 

on nomenory smsg "qOUT OF MEMORY SESSION" ;STRACE OFF 

* Specifies the session name suffix (ASYNCl) etc. 

&ASYNCNUM - 1 

* Iterate # of sessions specified 

loop ASYNC while (&ASYNCNUM <= &NUMPORTS) 

* Call subroutine to invoke a new async session 

gosub DOASYNC 

* Init session status 

define &HSTAT&ASYNCNUM = "OFFLINE" 

* Increment for next async session 

&ASYNCNUM » &ASYNCNUM + 1 

-ASYNC 

* Terminate script (normal termination) 

quiet stop 0 

* This subroutine invokes an async session 
-DOASYNC 

* Invoke a new async session and execute script REM4.SCR. 

* Assign a session name with ASYNC&ASYNCNUM format where &ASYNCNUM 
is the 

* current session being invoked. 

session start 
REM4/X: "&ASYNCNUM"/SD: "&APPLDR"/NAME: "ASYNC&ASYNCNUM "/SL: 4 

* Wait 20 seconds for the session to be esteiblished 

wait 20 (&sescount =^ &calc(&ASYNCNUM + 1)) 

* If session was not estaiblished successfully, then jump to error 
routine. 

if timeout then goto NG 

* Provide check to make sure session was completely established 
before proceeding* 

&XCNT « 1 

loop -CANWAITl * 

session status #2 &NX &STX 

if (&rc - 0) then goto CANSTOPl 

wait 1;&XCNT = &XCNT + 1 

if (&XCNT > 45) then goto NG 
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-CANWAITl 



* Provide error message if session vas not established. 
-NG 

clear 

open &APPLDR.I/)G as #1 for append 

write file #1 "&DATE &TIME Not able to bring up Session 
IfiASyNCNUN." 

read line 4Q1 "qNot able to bring up Session f&ASYNCNUM. 
Press ESCAPE." 

quiet stop 1 ;* return error code 

-CANSTOPl 

* Return to caller 

return 
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* SCRIPT: REM4.SCR 
* 

* FUNCTION: Places PC in answer node, perfonns recoveries etc. for 
each session 

* on the remote pc 

* if debug is on, then invoke trace 

if (&DEBDG » Y) then strace liOG&SESSIONID 
on error 

on nomemory smsg "gOut of memory session # &SESSIONID 
global &ASyNCNUN 

* Assign communications session number 

&A5YNCNUM » &1 

* Retrieve communication port # for this session 

directory query &EN&ASYNCNUM comport &HPORT 

* Retrieve modem type for this session 

directory qoption comport &HPORT &DUMMY1 &M0DEMNAM 

* If modem type is QX (Microcom) , then set special modem variable 
to 

* submit »AT» instruction to modem 

if (&upper(&MODEMNAM) » QX) then global &$MICMD 

* then &$MICMD = "\N3\Q3\JO%C3" 

* For super duper QX/4232hs (latest & greatest) 

then &$HICMD > ■'%C0%G1%BT12000" 



* Place session in answer mode. 
-WAITANS 

30 answer "&EN&ASYNCNUM'* ex REM5 

&HRC = &retcode 

* Error messages based on return code 

* If line dropped before xfer completed, then send file again 
if (&HRC = 99) then &MESSG = "Inadvertent line drop before 

file transfer was completed." 

else if (&HRC = 66) then &HESSG = "Normal disconnect from 

PC" 

else if (&HRC = 2) then &MESSG » "Insufficient memory for 
the connection." 

else if (&HRC =3) then &MESSG = "Communication port is not 
operational." 

else if (&HRC = 4) then &MESSG » "User pressed ESC 
cancelling the wait." 

else if (&HRC ~ 5) then &MESSG = "The modem is not 
responding properly." 
45 else if (&HRC = 6) then &MESSG = "No carrier detected on 

line." 

else if (6HRC ^ 8) then &MESSG » "Voice detected on 
telephone line." 
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else if (&HRC » 15) then &MESSG » "Entry Name 
•&EN&ASYNCNUM* not in the Directory of Computers." 

else if (&HRC = 98) then &ME5SG « ••Problem with initial 



smsg '•q&MESSG" 



* Check for fatal codes 

if {&HRC = 2) or (&HRC = 3) or (&HRC « 4) or (&HRC « 15) 

then &MESSG « "Fatal error for Entry Name 6EN&ASYNCNDM - 
port unusable." 

then smsg "q&MESSG" 

then smsg "qSession idle" 

then quiet stop all 

* Check if no more files to be received from central PC 



if (&HRC = 66) then define SHSTATfiASYNCNUH = "DONE" 
then smsg "qSession idle" 
then quiet stop all 



* Place session back into answer mode 
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* SCRIPT: H£M5*SCR 
* 

* FUNCTION: Performs online duties for communication session 
5 on error 

* Use relay's compressed protocol (type RC) 

* set protocol relay compress 

* Switch to split screen mode 
10 * switch relay 

* If relay's protocol not established in 60 seconds, then hangup 

wait 60 (&CSERIAL <> 

if timeout then hangup 98 

IS 

* Use hardware flow control 

* wait 1 

* substi session switch #&calc(&asyncnum + 1) 

* set insmode off ;* turn off insert mode 

* stack "[ESCAPE] [F5] [TAB] [TAB] [TAB] [TAB] [TAB] [TAB]H [enter] 

* wait 1 
reset jireceive ;* in case any junk chars 

* session switch #1 

* If inadvertent line drop occurs, then tell offline script to 
place in 

* answer mode 

on disconnect hangup 99 

* If line goes idle for more than 1 minute, then hangup 
30 on idle 100 hangup 99 

* Set inbound path 

set rdrive &INDIR 

* Set session statxis 

35 define &HSTAT&ASYNCNUM = "ONLINE" 

* Set the script control character to hex 24 (char-> $) 

set scriptctl x"24" 
quiet stop 
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Claims 

45 1. What is claimed is a parallel rule-based data transmission process comprising the steps of: 

(a) sensing the data file characteristics, 

(b) assigning a unique file identifier to each data file wherein said file identifier uniquely names each 
file and serves to designate its destination, 

(c) rule-t)ased segmentation of the said data files which uses the data file characteristics and the 
50 available data transmission channels to allocate data files or data file segments over available data 

transmission channels, 

(d) assigning segment identifiers to each file segment created by the rule-based segmentation step. 

(e) applying a data compression algorithm to the data file or data file segments to be transmitted, 

(f) simultaneous transmission of the data file or data file segments over multiple transmission 
55 channels, 

(g) receipt of said transmitted data file or data file segments at a receiving computer. 

(h) identifying the data compression scheme applied to the data file or data file segments, 

(i) decompressing the data file or data file segments, 
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(j) sensing the end of transmission <ETX) signal 

(k) rendering the receiving computer in an on-hook condition 

(I) reassembling the data file segments based upon the file segment identifiers. 

(m) storing the decompressed reassembled data files. 

5 

2. The parallel rule-based data transmission process of claim 1 wherein each data transmission channel 
comprises a transmission communication port, transmission modem, a transmission medium, receiving 
modem, and a receiving port. 

10 3. The parallel ru!e-t>ased data transmission process of Claim 2 further comprising the steps of sensing 
data transmission channel condition on a continuous basis during transmission to determine when the 
signal to noise ratio of any single transmission channel ^Is below a given threshold and reallocating 
those data files or data file segments on the said sensed malfunctioning channel to other properiy 
operating data transmission channels. 

75 

4. A parallel rule-based data transmission process according to Claim 3 wherein said data transmission 
channels are selected from the group comprising serial data transmission and parallel data transmis- 
sion. 

20 5. A parallel rule-txased data transmission apparatus comprising data transmission channel means over 
which data files or data file segments are transmitted, data processing means including logic means for 
applying mle-t)ased software, data storage means to store data files for transmission, means for 
assigning a unique file identifier including file destination, random access memory means for storing file 
segmentation rules, file segmentation rules stored in said random-access-memory means and accessed 

25 by the logic means for performing file segmentation t>ased upon data file characteristics and available 
data transmission channel means, data compression means for compressing the data files or data file 
segments based upon the data file characteristics, data decompression means for decompressing the 
compressed data file or data file segments data storage means to store the decompressed data file and 
data file segments and data file reassembly means to reassemble the data file segments transmitted 

30 Into a single data file. 

6. The parallel rule-t>ased data transmission apparatus according to Claim 5 wherein said data transmis- 
sion channel comprises a transmission communication port, transmission modem, receiving modem ' 
and receiving port. 

35 

7. The parallel rule-l)ased data transmission apparatus according to Claim 6 wherein said data storage 
means further includes a means tor storing a plurality of unique destination identifiers and associated 
telephone numbers or network addresses. 

40 8. The parallel rule-based data transmission apparatus according to Claim 7 wherein said unique file 
identifier includes a file destination on a private data network. 

9. The parallel rule-based data transmission apparatus according to Claim 7 wherein said unique file 
identifier includes a file destination on a public switched network. 

45 

10. The parallel rule-based data transmission apparatus according to Claim 5 wherein said data transmis- 
sion channel means comprises multiple data transmission channels over which data files or data file 
segments are transmitted simultaneously. 

50 11. The parallel rule-based data transmission apparatus according to Claim 10 wherein said data process- 
ing means comprising logic means to permit multiple data transmission sessions to occur simulta- 
neously without the need to load multiple copies of software in the said random-access-memory. 

12. The parallel rule-based data transmission apparatus according to Claim 11 wherein the said rules 
55 further comprise rules for least cost routing to reduce transmission costs. 

13. The parallel rule-based data transmission apparatus according to Claim 1 1 further comprising emulation 
to permit data transmission from the group comprising PC to mainframe, mainframe to mainframe, 
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mainframe to PC. terminal to mainframe, terminal to PC. terminal to terminal communication. 

14. The parallel rule-based data transmission apparatus according to Claim 11 further comprising read only 
memory for storing rules, logic control means, and data communication software instructions. 

5 

15. The parallel rule-based data transmission apparatus according to Claim 6 wherein said transmission 
and receiving ports are from the group comprising parallel computer ports and serial computer ports. 

16. A rule-based parallel data transmission system comprising a plurality of data transmission channels, file 
TO segmentation rules which govern the segmentation of files based upon the availability of data 

transmission channels. 

17. A parallel rule-based data transmission system of Claim 16 further comprising data compression means 
for compressing data transmitted over the said data transmission channels and further comprising data 

75 decompression means to decompress incoming data upon receipt at a destination. 

ia A parallel rule-based data transmission system of Claim 17 further comprising line monitoring means 
for monitoring the signal to noise ratio of the data transmission channels and further comprising rules 
for reallocation of data files or data file segments files to property operating data transmission channels 
20 when the signal to noise ratio monitored on any given data transmission channel falls below certain 
thresholds. 

19. A parallel rule-based data transmission system of Claim 18 further comprising means of sensing the 
presence of binary or ASCII files and applying one compression algorithm when binary files are sensed 

25 and a different compression algorithm when ASCII files are sensed. 

20. A parallel rule-based data transmission system according to Claim 1 or Claim 5 for use with the 
Integrated Services Digital Network (ISDN) telecommunication standard. 

30 21. A parallel rule-based data transmission system according to Claim 1 or Claim 5 wherein said 
segmentation rules dictate that files below a certain threshold are not segmented. 
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